Merge pull request #881 from pearsonca/master

fix: #770, get_cmdstan_flags('STANCFLAGS') in recursive make extraneo…

R/utils.R

@@ -678,7 +678,7 @@ get_cmdstan_flags <- function(flag_name) {
   cmdstan_path <- cmdstanr::cmdstan_path()
   flags <- wsl_compatible_run(
     command = "make",
-    args = c(paste0("print-", flag_name)),
+    args = c("-s", paste0("print-", flag_name)),
     wd = cmdstan_path
   )$stdout
 

tests/testthat/test-utils.R

@@ -248,3 +248,13 @@ test_that("as_mcmc.list() works", {
     "Currently only CmdStanMCMC objects can be converted to mcmc.list"
   )
 })
+
+test_that("get_cmdstan_flags() can be used recursively in `make`", {
+  mkfile <- normalizePath(test_path("testdata", "Makefile"))
+  nonrecursive_flags <- get_cmdstan_flags("STANCFLAGS")
+  stdo <- processx::run(
+    command = "make", args = sprintf("--file=%s", mkfile)
+  )$stdout
+  recursive_flags <- readLines(textConnection(stdo))
+  expect_equal(nonrecursive_flags, recursive_flags)
+})

tests/testthat/testdata/Makefile

@@ -0,0 +1,3 @@
+
+test:
+	@$(R_HOME)/bin/Rscript --vanilla -e 'cat(cmdstanr:::get_cmdstan_flags("STANCFLAGS"))'