add stancflags from make/local

Author: rok-cesnovar

R/model.R

@@ -550,7 +550,12 @@ compile <- function(quiet = TRUE,
       stanc_built_options <- c(stanc_built_options, paste0("--", option_name, "=", "'", stanc_options[[i]], "'"))
     }
   }
-  stancflags_val <- paste0("STANCFLAGS += ", stancflags_val, paste0(" ", stanc_built_options, collapse = " "))
+  make_local_stancflags <- get_make_variable("STANCFLAGS")
+  stancflags_val <- paste0(
+    "STANCFLAGS += ",
+    stancflags_val,
+    paste0(c(" ", stanc_built_options, make_local_stancflags), collapse = " ")
+  )
   withr::with_path(
     c(
       toolchain_PATH_env_var(),
@@ -769,7 +774,12 @@ check_syntax <- function(pedantic = FALSE,
     ),
     run_log <- wsl_compatible_run(
       command = stanc_cmd(),
-      args = c(wsl_safe_path(self$stan_file()), stanc_built_options, stancflags_val),
+      args = c(
+        wsl_safe_path(self$stan_file()),
+        stanc_built_options,
+        stancflags_val,
+        get_make_variable("STANCFLAGS")
+      ),
       wd = cmdstan_path(),
       echo = is_verbose_mode(),
       echo_cmd = is_verbose_mode(),
@@ -909,8 +919,12 @@ format <- function(overwrite_file = FALSE,
     ),
     run_log <- wsl_compatible_run(
       command = stanc_cmd(),
-      args = c(wsl_safe_path(self$stan_file()), stanc_built_options,
-                stancflags_val),
+      args = c(
+        wsl_safe_path(self$stan_file()),
+        stanc_built_options,
+        stancflags_val,
+        get_make_variable("STANCFLAGS")
+      ),
       wd = cmdstan_path(),
       echo = is_verbose_mode(),
       echo_cmd = is_verbose_mode(),

R/utils.R

@@ -512,3 +512,25 @@ as_mcmc.list <- function(x) {
   class(mcmc_list) <- 'mcmc.list'
   return(mcmc_list)
 }
+
+get_make_variable <- function(var_name) {
+  ret <- wsl_compatible_run(
+    command = make_cmd(),
+    args = c(paste0("print-", var_name)),
+    wd = cmdstan_path(),
+    echo_cmd = is_verbose_mode(),
+    echo = is_verbose_mode(),
+    error_on_status = FALSE
+  )
+  if (ret$status == 0) {
+    stancflags <- trimws(
+      gsub(
+        paste0(var_name, " ="), "",
+        ret$stdout, fixed = TRUE
+      )
+    )
+  } else {
+    stancflags <- ""
+  }
+  return(stancflags)
+}