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