## Not run:
# disp_hist_base <- function() hist(mtcars$disp)
# disp_hist_ggplot <- ggplot(mtcars, aes(disp)) + geom_histogram()
#
# expect_doppelganger(disp_hist_base, "disp-histogram-base")
# expect_doppelganger(disp_hist_ggplot, "disp-histogram-ggplot")
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace