Fix run_examples(fresh = TRUE)

Fixes #2264
r-lib · Sep 17, 2020 · 8b09c1b · 8b09c1b
1 parent d6c8add
commit 8b09c1b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,7 @@
 
 * `check()` only re-documents if you have a matching version of roxygen2
    (#2263).
+* `run_examples(fresh = TRUE)` again works without error (#2264)
 
 * `pkgload::inst()` is no longer re-exported (#2218).
 

diff --git a/R/run-examples.R b/R/run-examples.R
@@ -38,11 +38,9 @@ run_examples <- function(pkg = ".", start = NULL, show = TRUE, run_donttest = FA
 
   if (fresh) {
     to_run <-
-      eval(substitute(
-        function() devtools::run_examples(pkg = path, start = start, test = test, run = run, fresh = FALSE),
-        list(path = pkg$path, start = start, test = test, run = run)
-      ))
-    callr::r(to_run, show = TRUE, spinner = FALSE, stderr = "2>&1")
+        function(path, start, run_donttest, run_dontrun) devtools::run_examples(pkg = path, start = start, run_donttest = run_donttest, run_dontrun = run_dontrun, document = FALSE)
+
+    callr::r(to_run, args = list(path = pkg$path, start = start, run_donttest = run_donttest, run_dontrun = run_dontrun), show = TRUE, spinner = FALSE, stderr = "2>&1")
     return(invisible())
   }