add (out-commented) placeholder for params_siml check in run_biomee_f…

…_bysite()
geco-bern · Dec 12, 2024 · edad590 · edad590
1 parent c80276c
commit edad590
Showing 1 changed file with 26 additions and 0 deletions.
diff --git a/R/run_biomee_f_bysite.R b/R/run_biomee_f_bysite.R
@@ -387,6 +387,32 @@ run_biomee_f_bysite <- function(
     if (suppressWarnings(!all(as.vector(data_integrity)))) {
       continue <- FALSE
     }
+
+    # simulation parameters to check
+    # check_param <- c(
+    #   "spinup",
+    #   "spinupyears",
+    #   "recycle",
+    #   "firstyeartrend",
+    #   "nyeartrend",
+    #   "steps_per_day",
+    #   "do_U_shaped_mortality",
+    #   "update_annualLAImax",
+    #   "do_closedN_run"
+    # )
+    # parameter_integrity <- lapply(check_param, function(check_var){
+    #   if (any(is.nanull(params_siml[check_var]))){
+    #     warning(sprintf("Error: Missing value in %s for %s",
+    #                     check_var, sitename))
+    #     return(FALSE)
+    #   } else {
+    #     return(TRUE)
+    #   }
+    # })
+
+    # if (suppressWarnings(!all(parameter_integrity))){
+    #   continue <- FALSE
+    # }
   }
 
   if (continue) {