call proj_set conditionally when making vignettes.

Keeps things quiet on the console. #50
ropensci · Sep 7, 2018 · 136d87a · 136d87a
1 parent 20c6a14
commit 136d87a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/processData.R b/R/processData.R
@@ -527,7 +527,8 @@ DataPackageR <- function(arg = NULL, deps = TRUE) {
 
 .ppfiles_mkvignettes <- function(dir = NULL) {
   cat("\n")
-  usethis::proj_set(dir)
+  if (proj_get() != dir)
+    usethis::proj_set(dir)
   pkg <- desc::desc(dir)
   pkg$set_dep("knitr", "Suggests")
   pkg$set_dep("rmarkdown", "Suggests")