diff --git a/tests/testthat/test-ggplot.R b/tests/testthat/test-ggplot.R index f90e79c..06baf4b 100644 --- a/tests/testthat/test-ggplot.R +++ b/tests/testthat/test-ggplot.R @@ -1,10 +1,11 @@ test_that("ggplot creation works", { + expected_length <- length(ggplot2::ggplot()) lapply( 1:100, function(x){ a <- random_ggplot() expect_is(a, "gg") expect_is(a, "ggplot") - expect_length(a, 9) + expect_length(a, expected_length) } )