Don't print or calc EDF by default

Too slow on giant models

NEWS.md

@@ -1,7 +1,8 @@
 # sdmTMB (development version)
 
 * Add EDF (effective degrees of freedom) printing to smoothers with 
-  `print.sdmTMB()` and `summary.sdmTMB()`. #383 #387
+  `print.sdmTMB()` and `summary.sdmTMB()`. Set argument `edf = TRUE`.
+  E.g. `print(fit, edf = TRUE)`. #383 #387
 
 * Add `cAIC()` for calculating *conditional* AIC. Theory based on
   <https://arxiv.org/abs/2411.14185>; also see

R/fit.R

@@ -1521,10 +1521,10 @@ sdmTMB <- function(
     bad_eig    = conv$bad_eig,
     pos_def_hessian = sd_report$pdHess))
   out <- `class<-`(out, "sdmTMB")
-  if (out$tmb_data$has_smooths) {
-    edf <- suppressMessages(cAIC(out, what = "EDF"))
-    out$edf <- edf
-  }
+  # if (out$tmb_data$has_smooths) {
+  #   edf <- suppressMessages(cAIC(out, what = "EDF"))
+  #   out$edf <- edf
+  # }
   out
 }
 

R/print.R

@@ -324,7 +324,7 @@ print_header <- function(x) {
   cat(info$overall_family)
 }
 
-print_one_model <- function(x, m = 1, edf = TRUE, silent = FALSE) {
+print_one_model <- function(x, m = 1, edf = FALSE, silent = FALSE) {
   if (edf) {
     .edf <- suppressMessages(cAIC(x, what = "EDF"))
   } else {