library(vdiffr) test_that("bertin works", { . <- expect_doppelganger("bertin", bertin(feixas2004)) create_bertinCluster <- function() { set.seed(0) h <- bertinCluster(feixas2004) } . <- expect_doppelganger("bertinCluster", create_bertinCluster) })