be verbose if we're going to prompt

R/clean.R

@@ -77,6 +77,7 @@ clean <- function(project = NULL,
 
   project <- renv_project_resolve(project)
   renv_project_lock(project = project)
+  renv_scope_verbose_if(prompt)
 
   renv_activate_prompt("clean", NULL, prompt, project)
 

R/hydrate.R

@@ -73,6 +73,7 @@ hydrate <- function(packages = NULL,
 
   project <- renv_project_resolve(project)
   renv_project_lock(project = project)
+  renv_scope_verbose_if(prompt)
 
   renv_activate_prompt("hydrate", library, prompt, project)
 

R/install.R

@@ -112,6 +112,7 @@ install <- function(packages = NULL,
 
   project <- renv_project_resolve(project)
   renv_project_lock(project = project)
+  renv_scope_verbose_if(prompt)
 
   # handle 'dependencies'
   if (!is.null(dependencies)) {

R/lockfiles.R

@@ -127,9 +127,11 @@ lockfile_create <- function(type = settings$snapshot.type(project = project),
                             ...,
                             project = NULL)
 {
-  project <- renv_project_resolve(project)
   renv_dots_check(...)
 
+  project <- renv_project_resolve(project)
+  renv_scope_verbose_if(prompt)
+
   renv_lockfile_create(
     project  = project,
     type     = type,

R/pretty.R

@@ -14,15 +14,9 @@ renv_pretty_print_records <- function(preamble, records, postamble = NULL) {
   records <- records[sort(names(records))]
   packages <- names(records)
   descs <- map_chr(records, renv_record_format_short)
-
   text <- sprintf("- %s [%s]", format(packages), descs)
 
-  all <- c(
-    preamble,
-    text,
-    postamble, if (length(postamble)) ""
-  )
-
+  all <- c(preamble, text, postamble, if (length(postamble)) "")
   renv_caution_impl(all)
 
 }

R/purge.R

@@ -43,6 +43,7 @@ purge <- function(package,
 {
   renv_scope_error_handler()
   renv_dots_check(...)
+  renv_scope_verbose_if(prompt)
   invisible(renv_purge_impl(package, version, hash, prompt))
 }
 

R/rebuild.R

@@ -42,6 +42,7 @@ rebuild <- function(packages  = NULL,
 
   project <- renv_project_resolve(project)
   renv_project_lock(project = project)
+  renv_scope_verbose_if(prompt)
 
   libpaths <- renv_libpaths_resolve(library)
   library <- nth(libpaths, 1L)

R/rehash.R

@@ -16,6 +16,7 @@
 rehash <- function(prompt = interactive(), ...) {
   renv_scope_error_handler()
   renv_dots_check(...)
+  renv_scope_verbose_if(prompt)
   invisible(renv_rehash_impl(prompt))
 }
 

R/restore.R

@@ -53,6 +53,7 @@ restore <- function(project  = NULL,
 
   project <- renv_project_resolve(project)
   renv_project_lock(project = project)
+  renv_scope_verbose_if(prompt)
 
   # resolve library, lockfile arguments
   libpaths <- renv_libpaths_resolve(library)

R/roxygen.R

@@ -6,7 +6,8 @@
 #' @param type The type of package to install ("source" or "binary"). Defaults
 #'   to the value of `getOption("pkgType")`.
 #'
-#' @param lockfile Path to a lockfile. When `NULL` (the default), the `renv.lock` located in the root of the current project will be used.
+#' @param lockfile Path to a lockfile. When `NULL` (the default), the
+#'   `renv.lock` located in the root of the current project will be used.
 #'
 #' @param library The \R library to be used. When `NULL`, the active project
 #'  library will be used instead.

R/scope.R

@@ -389,3 +389,12 @@ renv_scope_caution <- function(value) {
     scope = parent.frame()
   )
 }
+
+renv_scope_verbose_if <- function(value, scope = parent.frame()) {
+  if (value) {
+    renv_scope_options(
+      renv.verbose = TRUE,
+      scope = scope
+    )
+  }
+}

R/snapshot.R

@@ -139,6 +139,7 @@ snapshot <- function(project  = NULL,
 
   project <- renv_project_resolve(project)
   renv_project_lock(project = project)
+  renv_scope_verbose_if(prompt)
 
   repos <- renv_repos_validate(repos)
   renv_scope_options(repos = repos)

R/update.R

@@ -266,6 +266,7 @@ update <- function(packages = NULL,
 
   project <- renv_project_resolve(project)
   renv_project_lock(project = project)
+  renv_scope_verbose_if(prompt)
 
   # resolve library path
   libpaths <- renv_libpaths_resolve(library)

R/upgrade.R

@@ -47,6 +47,7 @@ upgrade <- function(project = NULL,
                     prompt = interactive())
 {
   renv_scope_error_handler()
+  renv_scope_verbose_if(prompt)
   invisible(renv_upgrade_impl(project, version, reload, prompt))
 }