closes #2047

NEWS.md

@@ -1,6 +1,8 @@
 
 # renv 1.1.0  (UNRELEASED)
 
+* `renv` now detects dependencies from usages of `utils::citation()`. (#2047)
+
 * Fixed an issue where packages installed from r-universe via an explicit
   URL remote could not be restored. (#2060)
 

R/dependencies.R

@@ -1066,6 +1066,7 @@ renv_dependencies_discover_r <- function(path  = NULL,
     renv_dependencies_discover_r_library_require,
     renv_dependencies_discover_r_require_namespace,
     renv_dependencies_discover_r_colon,
+    renv_dependencies_discover_r_citation,
     renv_dependencies_discover_r_pacman,
     renv_dependencies_discover_r_modules,
     renv_dependencies_discover_r_import,
@@ -1225,14 +1226,33 @@ renv_dependencies_discover_r_colon <- function(node, envir) {
   if (is.symbol(package))
     package <- as.character(package)
 
-  if (!is.character(package) || length(package) != 1)
+  if (!is.character(package) || length(package) != 1L)
     return(FALSE)
 
   envir[[package]] <- TRUE
   TRUE
 
 }
 
+renv_dependencies_discover_r_citation <- function(node, envir) {
+
+  node <- renv_call_expect(node, "utils", "citation")
+  if (is.null(node))
+    return(FALSE)
+
+  matched <- catch(match.call(utils::citation, node))
+  if (inherits(matched, "error"))
+    return(FALSE)
+
+  package <- matched[["package"]]
+  if (!is.character(package) || length(package) != 1L)
+    return(FALSE)
+
+  envir[[package]] <- TRUE
+  TRUE
+
+}
+
 renv_dependencies_discover_r_pacman <- function(node, envir) {
 
   node <- renv_call_expect(node, "pacman", "p_load")

tests/testthat/test-dependencies.R

@@ -648,3 +648,10 @@ test_that("https://github.com/rstudio/renv/issues/2052", {
   expect_contains(deps$Package, "A")
 
 })
+
+test_that("https://github.com/rstudio/renv/issues/2047", {
+  renv_tests_scope()
+  writeLines("citation(\"breakfast\")", con = "_deps.R")
+  init()
+  expect_true(renv_package_installed("breakfast"))
+})