if (FALSE) {
results <- compare_image_dirs("baseline/", "current/", diff_dir = "diffs/")
# Generate report file
batch_report(results, output_file = "report.html")
# Self-contained report with embedded images
batch_report(results, output_file = "report.html", embed = TRUE)
# Get HTML as string
html <- batch_report(results)
}
Run the code above in your browser using DataLab