set rmarkdown_run_prerender to 0 if shiny_port envvar is found

rstudio · Sep 6, 2018 · 942df45 · 942df45
1 parent be6043c
commit 942df45
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/run.R b/R/run.R
@@ -35,8 +35,12 @@ run_tutorial <- function(name, package, shiny_args = NULL) {
     )
   }
 
-  # run within tutorial wd and ensure we don't call rmarkdown::render
+  # run within tutorial wd
   withr::with_dir(tutorial_path, {
+    if (!identical(Sys.getenv("SHINY_PORT", ""), "")) {
+      # is currently running in a server, do not allow for prerender (rmarkdown::render)
+      withr::local_envvar(c(RMARKDOWN_RUN_PRERENDER = "0"))
+    }
     rmarkdown::run(file = NULL, dir = tutorial_path, shiny_args = shiny_args)
   })
 }