Fix bug from last commit with EDF printing

Author: seananderson

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", , "sean@seananderson.ca",
            role = c("aut", "cre"),

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