diff --git a/tests/testthat/helper_vignettes.R b/tests/testthat/helper_vignettes.R
index 0d274587d34363f2bbedaa1b7f43394045afd19a..1f24851a8764d83e96d3c5f179a5c6fd8828546f 100644
--- a/tests/testthat/helper_vignettes.R
+++ b/tests/testthat/helper_vignettes.R
@@ -50,7 +50,7 @@ RunRmdChunks <-  function(fileRmd,
   sTxt = gsub("trace\\s?=\\s?[0-9]+", "trace = 0", sTxt)
   # Add parameters to example calls
   exLines = grep("^example\\(.*\\)", sTxt)
-  sTxt[exLines] = paste0(substr(sTxt[exLines], 1, nchar(sTxt[exLines]) - 1), ", local = TRUE, echo = FALSE, verbose = FALSE, ask = FALSE)")
+  sTxt[exLines] = paste0(substr(sTxt[exLines], 1, nchar(sTxt[exLines]) - 1), ", echo = FALSE, verbose = FALSE, ask = FALSE)")
   # Remove question "Hit <Return> to see next plot"
   sTxt = c("par(ask=F)", sTxt)
   # Write the transformed script