status reports used but unrecorded / uninstalled packages

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: renv
 Type: Package
 Title: Project Environments
-Version: 0.12.5-6
+Version: 0.12.5-7
 Authors@R: c(
     person("Kevin", "Ushey", role = c("aut", "cre"), email = "[email protected]"),
     person("RStudio", role = c("cph"))

NEWS.md

@@ -1,6 +1,10 @@
 
 # renv 0.13.0 (UNRELEASED)
 
+* `renv::status()` now reports packages that are referenced in a project's
+  scripts, but are neither installed in the project library nor recorded in the
+  lockfile. (#588)
+
 * Fixed an issue where package installation could fail if the `configure.vars`
   option was set to be a named character, rather than a named list. (#609)
 

R/status.R

@@ -59,6 +59,7 @@ renv_status_impl <- function(project, libpaths, lockpath, cache) {
   )
 
   renv_status_check_unknown_sources(project, lockfile)
+  renv_status_check_used_packages(project, lockfile, libstate)
 
   if (cache)
     renv_status_check_cache(project)
@@ -108,16 +109,21 @@ renv_status_check_missing_library <- function(project, libpaths) {
 
 }
 
-renv_status_check_used_packages <- function(project, libstate) {
+renv_status_check_used_packages <- function(project, lockfile, libstate) {
+
+  # only done when using implicit snapshots in a project
+  type <- settings$snapshot.type(project = project)
+  if (!type %in% c("implicit", "packrat"))
+    return(FALSE)
 
   deps <- dependencies(project, progress = FALSE)
   used <- sort(unique(deps$Package))
-  records <- renv_records(libstate)
 
   ignored <- c(
     renv_packages_base(),
     renv_project_ignored_packages(project),
-    names(records)
+    names(renv_records(lockfile)),
+    names(renv_records(libstate))
   )
 
   missing <- setdiff(used, ignored)
@@ -134,6 +140,9 @@ renv_status_check_used_packages <- function(project, libstate) {
     wrap = FALSE
   )
 
+  if (renv_tests_running())
+    renv_condition_signal("renv.status.used_but_not_installed", missing)
+
   FALSE
 
 }

tests/testthat/test-status.R

@@ -51,3 +51,14 @@ test_that("status reports packages to be installed / changed", {
   snapshot()
 
 })
+
+test_that("status reports packages which are used but not installed", {
+
+  renv_tests_scope()
+  renv_scope_sink()
+  init()
+
+  writeLines("library(bread)", con = "script.R")
+  expect_signal(status(), class = "renv.status.used_but_not_installed")
+
+})