if (FALSE) {
# Create a data frame of image pairs
pairs <- data.frame(
img1 = c("baseline/page1.png", "baseline/page2.png"),
img2 = c("current/page1.png", "current/page2.png")
)
# Compare all pairs
results <- compare_images_batch(pairs, diff_dir = "diffs/")
# Compare in parallel (Unix only)
results <- compare_images_batch(pairs, parallel = TRUE)
# Check which comparisons failed
results[!results$match, ]
}
Run the code above in your browser using DataLab