test: Fix detection of galley mode (loaded vs. installed) to support …

…custom test environments
tidyverse · May 27, 2024 · 155fa21 · 155fa21
1 parent 0686ca5
commit 155fa21
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/galley.R b/R/galley.R
@@ -32,16 +32,16 @@ galley_use_installed <- function() {
 
 render_galley <- function(name, md_name) {
   pkg <- utils::packageName()
-  # FIXME: Hack!
   installed <- galley_use_installed()
-  # stopifnot(!installed)
 
-  if (installed) {
-    input_path <- system.file("doc", name, package = pkg)
-  } else {
+  if (!installed) {
     input_path <- system.file("vignettes", name, package = pkg)
   }
 
+  if (installed || !file.exists(input_path)) {
+    input_path <- system.file("doc", name, package = pkg)
+  }
+
   # Need fixed file name for stability
   output_dir <- tempdir()
   output_file <- md_name