Set LazyData when adding data (r-lib#1404)

To match new CRAN check. Fixes r-lib#1403.

NEWS.md

@@ -12,6 +12,10 @@
 
 * Added `use_import_from()` to put `@importFrom pkg fun` into a package in a 
   consistent way (@malcolmbarrett, #1377)
+
+* `DESCRIPTION` files generated by usethis no longer include `LazyData` by 
+   default per new CRAN checks; instead, `LazyData` is now added the first time 
+   you use `use_data()` (@malcolmbarrett, #1404)
 
 # usethis 2.0.1
 

R/data.R

@@ -50,6 +50,11 @@ use_data <- function(...,
   } else {
     use_directory("data")
     paths <- path("data", objs, ext = "rda")
+    if (!desc::desc_has_fields("LazyData")) {
+      ui_done("Setting {ui_field('LazyData')} to \\
+              {ui_value('true')} in {ui_path('DESCRIPTION')}")
+      desc::desc_set("LazyData", "true")
+    }
   }
   check_files_absent(proj_path(paths), overwrite = overwrite)
 

R/description.R

@@ -89,8 +89,7 @@ use_description_defaults <- function(package = NULL,
     Description = "What the package does (one paragraph).",
     "Authors@R" = 'person("First", "Last", , "[email protected]", c("aut", "cre"), comment = c(ORCID = "YOUR-ORCID-ID"))',
     License = "`use_mit_license()`, `use_gpl3_license()` or friends to pick a license",
-    Encoding = "UTF-8",
-    LazyData = "true"
+    Encoding = "UTF-8"
   )
 
   if (roxygen) {

README.md

@@ -60,8 +60,8 @@ library(usethis)
 # Create a new package -------------------------------------------------
 path <- file.path(tempdir(), "mypkg")
 create_package(path)
-#> ✓ Creating '/tmp/RtmpBtK0Bx/mypkg/'
-#> ✓ Setting active project to '/private/tmp/RtmpBtK0Bx/mypkg'
+#> ✓ Creating '/var/folders/03/9x7925g54mncswxx06wpkxl00000gn/T/RtmpxLZ8U3/mypkg/'
+#> ✓ Setting active project to '/private/var/folders/03/9x7925g54mncswxx06wpkxl00000gn/T/RtmpxLZ8U3/mypkg'
 #> ✓ Creating 'R/'
 #> ✓ Writing 'DESCRIPTION'
 #> Package: mypkg
@@ -73,15 +73,14 @@ create_package(path)
 #> License: `use_mit_license()`, `use_gpl3_license()` or friends to pick a
 #>     license
 #> Encoding: UTF-8
-#> LazyData: true
 #> Roxygen: list(markdown = TRUE)
 #> RoxygenNote: 7.1.1
 #> ✓ Writing 'NAMESPACE'
 #> ✓ Setting active project to '<no active project>'
 # only needed since this session isn't interactive
 proj_activate(path)
-#> ✓ Setting active project to '/private/tmp/RtmpBtK0Bx/mypkg'
-#> ✓ Changing working directory to '/tmp/RtmpBtK0Bx/mypkg/'
+#> ✓ Setting active project to '/private/var/folders/03/9x7925g54mncswxx06wpkxl00000gn/T/RtmpxLZ8U3/mypkg'
+#> ✓ Changing working directory to '/var/folders/03/9x7925g54mncswxx06wpkxl00000gn/T/RtmpxLZ8U3/mypkg/'
 
 # Modify the description ----------------------------------------------
 use_mit_license("My Name")
@@ -115,6 +114,7 @@ y <- 2
 use_data(x, y)
 #> ✓ Adding 'R' to Depends field in DESCRIPTION
 #> ✓ Creating 'data/'
+#> ✓ Setting LazyData to 'true' in 'DESCRIPTION'
 #> ✓ Saving 'x', 'y' to 'data/x.rda', 'data/y.rda'
 #> ● Document your data (see 'https://r-pkgs.org/data.html')
 

tests/testthat/test-data.R

@@ -7,7 +7,9 @@ test_that("use_data() stores new, non-internal data", {
   pkg <- create_local_package()
   letters2 <- letters
   month.abb2 <- month.abb
+  expect_false(desc::desc_has_fields("LazyData"))
   use_data(letters2, month.abb2)
+  expect_true(desc::desc_has_fields("LazyData"))
   rm(letters2, month.abb2)
 
   load(proj_path("data", "letters2.rda"))