Fix bug from last commit with EDF printing

pbs-assess · Dec 14, 2024 · 3df3729 · 3df3729
1 parent 34015b5
commit 3df3729
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: sdmTMB
 Title: Spatial and Spatiotemporal SPDE-Based GLMMs with 'TMB'
-Version: 0.6.0.9019
+Version: 0.6.0.9020
 Authors@R: c(
     person(c("Sean", "C."), "Anderson", , "[email protected]",
            role = c("aut", "cre"),

diff --git a/R/print.R b/R/print.R
@@ -139,8 +139,10 @@ print_smooth_effects <- function(x, m = 1, edf = NULL, silent = FALSE) {
 
     if (!is.null(edf)) {
       if (is_delta(x)) {
-        lp_regex <- paste0("^", m, "LP-")
+        lp_regex <- paste0("^", m, "LP-s\\(")
         edf <- edf[grepl(lp_regex, names(edf))]
+      } else {
+        edf <- edf[grepl("^s\\(", names(edf))]
       }
       edf <- round(edf, 2)
       re_sm_mat <- cbind(re_sm_mat, matrix(edf, ncol = 1))