# \donttest{
# Toy example to demonstrate report generation
# Using a temporary file to avoid writing to user's working directory
tmp_file <- tempfile("report_example")
# Mock results object
mock_results <- list(
data = data.frame(time = 1:10, Z = runif(10)),
equation = stats::lm(Z ~ time, data = data.frame(time = 1:10, Z = runif(10)))
)
# Generate report
report_path <- generate_report(mock_results, output_file = tmp_file, format = "markdown")
if(file.exists(report_path)) unlink(report_path)
# }
Run the code above in your browser using DataLab