Don't snapshot() development dependencies

NEWS.md

@@ -1,6 +1,9 @@
 
 # renv 0.18.0  (UNRELEASED)
 
+* `snapshot()` and `status()` no longer track development dependencies.
+  `install()` will continue to install them (#1019).
+
 * `dependencies()` now marks `Suggested` packages listed in `DESCRIPTION` files
   as development dependencies regardless of whether or not they're a "package" 
   project.

R/install.R

@@ -143,7 +143,7 @@ install <- function(packages = NULL,
     return(renv_pak_install(packages, libpaths, project))
   }
 
-  packages <- packages %||% renv_snapshot_dependencies(project, "implicit")
+  packages <- packages %||% renv_snapshot_dependencies(project, include_dev = TRUE)
   if (empty(packages)) {
     writef("* There are no packages to install.")
     return(invisible(list()))

R/snapshot.R

@@ -838,7 +838,7 @@ renv_snapshot_report_actions <- function(actions, old, new) {
 }
 # nocov end
 
-renv_snapshot_dependencies <- function(project, type = NULL) {
+renv_snapshot_dependencies <- function(project, type = NULL, include_dev = FALSE) {
 
   type <- type %||% settings$snapshot.type(project = project)
 
@@ -870,7 +870,7 @@ renv_snapshot_dependencies <- function(project, type = NULL) {
       progress = FALSE,
       field    = "Package",
       errors   = errors,
-      dev      = TRUE
+      dev      = include_dev
     ),
 
     renv.dependencies.error = renv_dependencies_error_handler(message, errors)

tests/testthat/test-snapshot.R

@@ -457,3 +457,16 @@ test_that("exclude handles uninstalled packages", {
   lockfile <- renv_lockfile_load(project)
   expect_null(lockfile$Packages$bread)
 })
+
+test_that("snapshot doesn't include development dependencies", {
+
+  renv_tests_scope()
+  writeLines(c("Imports: egg", "Suggests: bread"), "DESCRIPTION")
+
+  inst <- install()
+  expect_named(inst, c("bread", "egg"), ignore.order = TRUE)
+
+  snap <- snapshot()
+  expect_named(snap$Packages, "egg")
+
+})