49 lines
1.2 KiB
R
49 lines
1.2 KiB
R
# Generate Interactive SAR Report
|
|
# ===============================
|
|
|
|
cat("Generating interactive SAR exploration report...\n")
|
|
|
|
# Install rmarkdown if needed
|
|
if (!require(rmarkdown)) {
|
|
install.packages("rmarkdown")
|
|
library(rmarkdown)
|
|
}
|
|
|
|
# Set working directory
|
|
if (basename(getwd()) != "smartcane") {
|
|
stop("Please run this from the main smartcane directory")
|
|
}
|
|
|
|
# Render the report
|
|
report_file <- "r_app/SAR_exploration_report.Rmd"
|
|
output_file <- "output/SAR_exploration_report.html"
|
|
|
|
cat("Rendering report:", report_file, "\n")
|
|
cat("Output file:", output_file, "\n")
|
|
|
|
# Render with error handling
|
|
tryCatch({
|
|
rmarkdown::render(
|
|
input = report_file,
|
|
output_file = output_file,
|
|
output_format = "html_document",
|
|
quiet = FALSE
|
|
)
|
|
|
|
cat("\n✓ Report generated successfully!\n")
|
|
cat("Open", output_file, "in your browser to view the interactive maps.\n")
|
|
|
|
# Try to open in browser (Windows)
|
|
if (.Platform$OS.type == "windows") {
|
|
shell.exec(normalizePath(output_file))
|
|
}
|
|
|
|
}, error = function(e) {
|
|
cat("✗ Error generating report:\n")
|
|
cat(conditionMessage(e), "\n")
|
|
|
|
# Try with minimal content first
|
|
cat("\nTrying minimal report generation...\n")
|
|
cat("Check the console output above for specific errors.\n")
|
|
})
|