From 25a836f9219399b8e6747c723f5e3496b50f2349 Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Thu, 18 Jan 2024 13:18:18 +0100
Subject: [PATCH] fix test

---
 tests/testthat/test-ggplot.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
     }
   )