pdf(NULL)
dev.control("enable") # enable plot recording
plot(1:10)
p1 = recordPlot()
abline(0, 1) # add a line (a low-level change)
p2 = recordPlot()
plot(rnorm(100))
p3 = recordPlot() # draw a completely new plot
dev.off()
knitr::is_low_change(p1, p2) # true
knitr::is_low_change(p1, p3) # false
Run the code above in your browser using DataLab