Use .data pronoun to prevent global variable warning in R CMD check

R/cran-compliance.R

@@ -45,10 +45,10 @@
 
   if (is.null(lib_name)) {
     lib_name <- as_valid_rust_name(pkg_name(path))
   } else if (length(lib_name) > 1) {
     cli::cli_abort(
       "{.arg lib_name} must be a character scalar",
       class = "rextendr_error"
     )
   }
 
@@ -94,11 +94,11 @@
 
   # vendor directory should be ignored by git and R CMD build
   if (!rlang::is_installed("usethis")) {
     cli::cli_inform(
       c(
         "!" = "Add {.code ^src/rust/vendor$} to your {.file .Rbuildignore}",
         "!" = "Add {.code ^src/rust/vendor$} to your {.file .gitignore}",
         "i" = "Install {.pkg usethis} to have this done automatically."
       )
     )
   } else {
@@ -130,9 +130,9 @@
 
   # if `src/rust` does not exist error
   if (!dir.exists(src_dir)) {
     cli::cli_abort(
       c("{.path src/rust} cannot be found", "i" = "Did you run {.fn use_extendr}?"),
       class = "rextendr_error"
     )
   }
 
@@ -153,9 +153,9 @@
     })
 
     if (update_res[["status"]] != 0) {
       cli::cli_abort(
         "{.file Cargo.lock} could not be created using {.code cargo generate-lockfile}",
         class = "rextendr_error"
       )
     }
   }
@@ -175,9 +175,9 @@
   })
 
   if (vendor_res[["status"]] != 0) {
     cli::cli_abort(
       "{.code cargo vendor} failed",
       class = "rextendr_error"
     )
   }
 
@@ -191,7 +191,7 @@
     rlang::set_names(c("source", "crate", "version")) %>%
     dplyr::filter(!is.na(source)) %>%
     dplyr::select(-source) %>%
-    dplyr::arrange(crate) # nolint: object_usage_linter
+    dplyr::arrange(.data$crate) # nolint: object_usage_linter
 
   # capture vendor-config.toml content
   config_toml <- vendor_res[["stdout"]] %>%
@@ -213,9 +213,9 @@
   })
 
   if (compress_res[["status"]] != 0) {
     cli::cli_abort(
       "Folder {.path vendor} could not be compressed",
       class = "rextendr_error"
     )
   }
 

tests/testthat/_snaps/use_cran_defaults.md

@@ -181,18 +181,18 @@
 ---
 
     Code
-      package_versions
+      package_versions["crate"]
     Output
-      # A tibble: 9 x 2
-        crate          version
-        <chr>          <chr>  
-      1 extendr-api    0.6.0  
-      2 extendr-macros 0.6.0  
-      3 libR-sys       0.6.0  
-      4 once_cell      1.19.0 
-      5 paste          1.0.14 
-      6 proc-macro2    1.0.70 
-      7 quote          1.0.33 
-      8 syn            2.0.42 
-      9 unicode-ident  1.0.12 
+      # A tibble: 9 x 1
+        crate         
+        <chr>         
+      1 extendr-api   
+      2 extendr-macros
+      3 libR-sys      
+      4 once_cell     
+      5 paste         
+      6 proc-macro2   
+      7 quote         
+      8 syn           
+      9 unicode-ident 
 

tests/testthat/test-use_cran_defaults.R

@@ -35,6 +35,6 @@ test_that("vendor_pkgs() vendors dependencies", {
 
   package_versions <- vendor_pkgs(path, quiet = TRUE)
   expect_snapshot(cat_file("src", "rust", "vendor-config.toml"))
-  expect_snapshot(package_versions)
+  expect_snapshot(package_versions["crate"])
   expect_true(file.exists(file.path("src", "rust", "vendor.tar.xz")))
 })