From edad590e2900f6f4a20ffaafd2d9a9764b6fa13e Mon Sep 17 00:00:00 2001
From: Fabian Bernhard <10245680+fabern@users.noreply.github.com>
Date: Thu, 12 Dec 2024 12:02:17 +0100
Subject: [PATCH] add (out-commented) placeholder for params_siml check in
 run_biomee_f_bysite()

---
 R/run_biomee_f_bysite.R | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/R/run_biomee_f_bysite.R b/R/run_biomee_f_bysite.R
index 7991c968..501da8ef 100644
--- 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) {