vignettes: Don't set work_dir in CMD check

gadget-framework · Jul 4, 2024 · ab6a5eb · ab6a5eb
1 parent d5ea351
commit ab6a5eb
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 2 deletions.
diff --git a/R/test_utils.R b/R/test_utils.R
@@ -117,6 +117,7 @@ ut_cmp_df <- function (df, table_text, ...) {
 }
 
 vignette_base_dir <- function (extra) {
+    writeLines(c("Vignette current directory:", getwd()), con = stderr())
     if (basename(getwd()) == "vignettes") {
         out <- file.path("..", "baseline")
     } else if (basename(getwd()) == "gadget3") {

diff --git a/vignettes/introduction-single-stock.Rmd b/vignettes/introduction-single-stock.Rmd
@@ -25,7 +25,7 @@ vignette: >
 library(unittest)
 # Redirect ok() output to stderr
 options(unittest.output = stderr())
-options(gadget3.tmb.work_dir = gadget3:::vignette_base_dir('work_dir'))
+if (nzchar(Sys.getenv('G3_TEST_TMB'))) options(gadget3.tmb.work_dir = gadget3:::vignette_base_dir('work_dir'))
 
 library(gadget3)
 set.seed(123)

diff --git a/vignettes/multiple-substocks.Rmd b/vignettes/multiple-substocks.Rmd
@@ -21,7 +21,7 @@ vignette: >
 library(unittest)
 # Redirect ok() output to stderr
 options(unittest.output = stderr())
-options(gadget3.tmb.work_dir = gadget3:::vignette_base_dir('work_dir'))
+if (nzchar(Sys.getenv('G3_TEST_TMB'))) options(gadget3.tmb.work_dir = gadget3:::vignette_base_dir('work_dir'))
 
 library(gadget3)
 set.seed(123)