Merge branch 'issue-300'

DESCRIPTION

@@ -1,6 +1,5 @@
 Package: gratia
-Version: 0.9.2.9005
-Date: 2024-07-27
+Version: 0.9.2.9006
 Title: Graceful 'ggplot'-Based Graphics and Other Functions for GAMs Fitted Using 'mgcv'
 Authors@R: c(person(given = "Gavin L.", family = "Simpson",
                     email = "ucfagls@gmail.com",

R/smooth-estimates.R

@@ -258,7 +258,7 @@
     }
     ## if they do all inherit from the correct class, then run term_names
     ## on each element and combine - returns $term and $by from each smooth
-    unlist(sapply(smooths, FUN = term_names))
+    unlist(lapply(smooths, FUN = term_names))
   }
 
   ## check that the vars we need are in data

tests/testthat/test-confint-methods.R

@@ -178,7 +178,9 @@ test_that("confint.fderiv example output", {
     q <- quantile(x, prob = c(0 + v, 1 - v), type = 8)
     seq(q[1], q[2], length = n)
   }
-  new_data <- sapply(su_eg1[c("x0", "x1", "x2", "x3")], middle)
+  n_middle <- 25
+  new_data <- vapply(su_eg1[c("x0", "x1", "x2", "x3")], FUN = middle,
+    FUN.VALUE = numeric(n_middle), n = n_middle)
   new_data <- data.frame(new_data)
   ## first derivatives of all smooths...
   fd <- fderiv(m_gam, newdata = new_data)

tests/testthat/test-derivatives.R

@@ -477,7 +477,7 @@ test_that("derivatives() works for fs smooths issue 57 and 301", {
   expect_doppelganger("draw issue 57 derivatives for factor by", plt)
 
   # test variant in #301
-  logistic_growth_df$linearterm = runif(16)
+  logistic_growth_df$linearterm <- runif(16)
   m_logistic_growth <- gam(y_obs ~ s(t, unit, k = 5, bs = "fs", m = 2) + linearterm,
     data = logistic_growth_df, method = "REML")
   expect_silent(fd <- derivatives(m_logistic_growth))