fix: fix em starter update

move starter file update to only occur when EM exists
nmfs-fish-tools · Mar 15, 2024 · ef2b462 · ef2b462
1 parent d7d2e7e
commit ef2b462
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -161,6 +161,11 @@ clean_init_mod_files <- function(OM_out_dir, EM_out_dir = NULL, MS = "EM",
     EM_start <- SS_readstarter(file.path(EM_out_dir, "starter.ss"),
       verbose = FALSE
     )
+
+    # turn on sd reporting for all em model years by default
+    EM_start[["minyr_sdreport"]] <- -1
+    EM_start[["maxyr_sdreport"]] <- -2
+
     EM_dat <- SS_readdat(file.path(EM_out_dir, EM_start[["datfile"]]), verbose = FALSE)
 
     EM_ctl <- SS_readctl(file.path(EM_out_dir, EM_start[["ctlfile"]]), datlist = EM_dat, verbose = FALSE)
@@ -173,9 +178,7 @@ clean_init_mod_files <- function(OM_out_dir, EM_out_dir = NULL, MS = "EM",
   styr <- OM_dat[["styr"]]
   endyr <- OM_dat[["endyr"]]
 
-  # turn on sd reporting for all em model years by default
-  EM_start[["minyr_sdreport"]] <- -1
-  EM_start[["maxyr_sdreport"]] <- -2
+
 
 
   # get years in range function