reduce size of some snapshots

tests/testthat/setup.R

@@ -17,6 +17,7 @@ library("ggplot2")
 n_quick <- 300
 quick_eg1 <- data_sim("eg1", n = n_quick, seed = 21)
 quick_eg1_off <- quick_eg1 |> mutate(off = 2)
+tiny_eg1 <- data_sim("eg1", n = 100, seed = 21)
 su_eg1 <- data_sim("eg1", n = 1000, dist = "normal", scale = 2, seed = 1)
 su_eg2 <- data_sim("eg2", n = 2000, dist = "normal", scale = 0.5, seed = 42)
 su_eg3 <- data_sim("eg3", n = 400, seed = 32)
@@ -27,6 +28,11 @@ su_m_quick_eg1 <- gam(y ~ s(x0) + s(x1) + s(x2) + s(x3),
   method = "REML"
 )
 
+m_tiny_eg1 <- gam(y ~ s(x0) + s(x1) + s(x2) + s(x3),
+  data = tiny_eg1,
+  method = "REML"
+)
+
 su_m_quick_eg1_shrink <- gam(
   y ~ s(x0, bs = "ts") + s(x1, bs = "cs") +
     s(x2, bs = "ts") + s(x3, bs = "ts"),

tests/testthat/test-diagnostic-plots.R

@@ -1,7 +1,7 @@
 ## Test qq_plot() methods
 
 test_that("appraise() works", {
-  plt <- appraise(m_gam)
+  plt <- appraise(m_tiny_eg1)
 
   skip_on_ci()
   expect_doppelganger("appraise diagnostic plots", plt)
@@ -12,9 +12,6 @@ test_that("appraise() method direct yields a message", {
     plt <- appraise(m_gam, method = "direct"),
     "`method = \"direct\"` is deprecated, use `\"uniform\"`"
   )
-
-  skip_on_ci()
-  expect_doppelganger("appraise diagnostic plots", plt)
 })
 
 test_that("appraise() fails if n_bins not numeric or one of character options", {
@@ -44,13 +41,13 @@ test_that("residuals_hist_plot fails if non-numeric n_bins doesn't match charact
 })
 
 test_that("worm_plot works for a GAM", {
-  expect_silent(plt1 <- withr::with_seed(1, worm_plot(m_gam)))
+  expect_silent(plt1 <- withr::with_seed(1, worm_plot(m_tiny_eg1)))
 
-  expect_silent(plt2 <- withr::with_seed(1, worm_plot(m_gam,
+  expect_silent(plt2 <- withr::with_seed(1, worm_plot(m_tiny_eg1,
     method = "simulate"
   )))
 
-  expect_silent(plt3 <- withr::with_seed(1, worm_plot(m_gam,
+  expect_silent(plt3 <- withr::with_seed(1, worm_plot(m_tiny_eg1,
     method = "normal"
   )))
 
@@ -136,7 +133,7 @@ test_that("appraise works for a LM", {
 })
 
 test_that("appraise can use the worm plot", {
-  expect_silent(plt <- withr::with_seed(1, appraise(m_gam,
+  expect_silent(plt <- withr::with_seed(1, appraise(m_tiny_eg1,
     use_worm = TRUE,
     method = "simulate"
   )))

tests/testthat/test-draw-methods.R

@@ -114,8 +114,8 @@ test_that("draw.gam() plots a simple multi-smooth AM", {
 })
 
 test_that("draw.gam() can draw partial residuals", {
-  plt1 <- draw(su_m_quick_eg1, residuals = TRUE, rug = FALSE)
-  plt2 <- draw(su_m_quick_eg1, residuals = TRUE, scales = "fixed", rug = FALSE)
+  plt1 <- draw(m_tiny_eg1, residuals = TRUE, rug = FALSE)
+  plt2 <- draw(m_tiny_eg1, residuals = TRUE, scales = "fixed", rug = FALSE)
 
   skip_on_ci()
   expect_doppelganger("draw simple partial residuals", plt1)

tests/testthat/test-draw-smooth-estimates.R

@@ -341,11 +341,15 @@ test_that("grouped_by works", {
 test_that("draw smooth estimates works with sizer", {
   expect_silent(d <- derivatives(m_gam, n = 100))
   expect_silent(plt1 <- smooth_estimates(m_gam) |>
-    add_sizer(derivatives = d, type = "change"))
+    add_sizer(derivatives = d, type = "change") |>
+    draw()
+  )
   expect_silent(plt2 <- smooth_estimates(m_gam) |>
-    add_sizer(derivatives = d, type = "sizer"))
+    add_sizer(derivatives = d, type = "sizer") |>
+    draw()
+  )
 
   skip_on_cran()
   expect_doppelganger("draw smooth est works with change indicators", plt1)
   expect_doppelganger("draw smooth est works with sizer indicators", plt2)
-})
+})