Fix tidy() bug created by last commit

R/tidy.R

@@ -198,13 +198,14 @@ tidy.sdmTMB <- function(x, effects = c("fixed", "ran_pars", "ran_vals"), model =
       if (this == "tau_V") this <- "sigma_V"
       this_se <- as.numeric(se[[this]])
       this_est <- as.numeric(est[[this]])
-      out_re[[i]] <- data.frame(
-        term = i, estimate = this_est, std.error = this_se,
-        conf.low = exp(.e - crit * .se),
-        conf.high = exp(.e + crit * .se),
-        stringsAsFactors = FALSE
-      )
-
+      if (length(this_est)) {
+        out_re[[i]] <- data.frame(
+          term = i, estimate = this_est, std.error = this_se,
+          conf.low = exp(.e - crit * .se),
+          conf.high = exp(.e + crit * .se),
+          stringsAsFactors = FALSE
+        )
+      }
       ii <- ii + 1
     }
   }