if (FALSE) {
# Compare all images in two directories
results <- compare_image_dirs("baseline/", "current/")
# Only compare PNG files
results <- compare_image_dirs("baseline/", "current/", pattern = "\\.png$")
# Include subdirectories and save diff images
results <- compare_image_dirs(
"baseline/",
"current/",
recursive = TRUE,
diff_dir = "diffs/"
)
# Check which comparisons failed
results[!results$match, ]
}
Run the code above in your browser using DataLab