names warning on subset

Author: gogonzo

R/qenv-extract.R

@@ -25,7 +25,7 @@
     if (length(names_missing)) {
       warning(
         sprintf(
-          "Some elements of 'names' do not exist in the environment of the '%s'. Skipping those: %s.",
+          "Some 'names' do not exist in the environment of the '%s'. Skipping those: %s.",
           class(x)[1],
           paste(names_missing, collapse = ", ")
         )

tests/testthat/test-qenv_extract.R

@@ -33,7 +33,7 @@ testthat::test_that("`[.` warns and subsets to existing if some names not presen
   })
   testthat::expect_warning(
     testthat::expect_equal(data[c("b", "c", "d")], data["b"]),
-    "Some elements of 'names' do not exist in the environment of the 'qenv'. Skipping those: c, d."
+    "Some 'names' do not exist in the environment of the 'qenv'. Skipping those: c, d."
   )
   testthat::expect_warning(
     testthat::expect_equal(data[c("b", "c", "d")], data["b"]),