13 lines
376 B
R
13 lines
376 B
R
# context("Histograms")
|
|
#
|
|
# library(ggplot2)
|
|
# disp_hist_base <- function() hist(mtcars$disp)
|
|
# disp_hist_ggplot <- ggplot(mtcars, aes(disp)) + geom_histogram()
|
|
#
|
|
# test_that({
|
|
# skip("Not currently working")
|
|
# vdiffr::expect_doppelganger("Base graphics histogram", disp_hist_base)
|
|
# vdiffr::expect_doppelganger("ggplot2 histogram", disp_hist_ggplot)
|
|
#
|
|
# })
|