From 322303cc855ec126d41d1d4ad73699cc0ea7cb73 Mon Sep 17 00:00:00 2001 From: sbuis Date: Mon, 16 Dec 2024 16:17:35 +0100 Subject: [PATCH] Added call to operation function --- R/stics_wrapper.R | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/R/stics_wrapper.R b/R/stics_wrapper.R index b6db398..a3b8202 100644 --- a/R/stics_wrapper.R +++ b/R/stics_wrapper.R @@ -433,6 +433,14 @@ stics_wrapper <- function(model_options, ) } + # Compute user defined operations if any + if (is.function(model_options$compute_operations)) { + model_options$compute_operations( + model_options = model_options, + usm_name = situation, + param_values = param_values_sit, + ) + } ## Run the model, forcing not to check the model executable (saves time) usm_out <- run_stics(stics_exe, run_dir, check = FALSE)