Debug

roualdes · Nov 8, 2023 · fc50988 · fc50988
1 parent e1bcf93
commit fc50988
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/R/R/compile.R b/R/R/compile.R
@@ -101,13 +101,14 @@ compile_model <- function(stan_file, stanc_args = NULL, make_args = NULL) {
 
 windows_path_setup <- function() {
     if (.Platform$OS.type == "windows") {
-        tryCatch({
-            out <- suppressWarnings(system2("where.exe", "tbb.dll", stdout = NULL,
-                stderr = NULL))
-        }, error = function(e) {
+        print("Verifying TBB")
+        suppressWarnings(out <- system2("where.exe", "tbb.dll", stdout = NULL, stderr = NULL))
+        if (out != 0) {
+            print("Adding TBB to PATH")
             tbb_path <- file.path(get_bridgestan_path(), "stan", "lib", "stan_math",
                 "lib", "tbb")
             Sys.setenv(PATH = paste(tbb_path, Sys.getenv("PATH"), sep = ";"))
-        })
+        }
+        print(Sys.getenv("PATH"))
     }
 }