fix warning messages for skipped objects

Author: m7pr

R/qenv-extract.R

@@ -22,14 +22,21 @@
   names_warn <- setdiff(names, possible_names)
   names <- intersect(names, possible_names)
   if (!length(names)) {
-    warning("None of `names` elements exist in `qenv`. Returning empty `qenv`.")
+    warning(
+      sprintf(
+        "None of 'names' elements exist in '%s'. Returning empty '%s'.",
+        class(x)[1],
+        class(x)[1]
+      )
+    )
     return(qenv())
   }
 
   if (length(names_warn)) {
     warning(
       sprintf(
-        "Some elements of `names` do not exist in `qenv`. Skipping those: %s.",
+        "Some elements of 'names' do not exist in '%s'. Skipping those: %s.",
+        class(x)[1],
         paste(names_warn, collapse = ", ")
       )
     )

tests/testthat/test-qenv_extract.R

@@ -6,7 +6,7 @@ testthat::test_that("`[.` returns empty qenv for names not in qenv", {
   })
   testthat::expect_warning(
     testthat::expect_equal(data["y"], qenv()),
-    "None of `names` elements exist in `qenv`. Returning empty `qenv`."
+    "None of 'names' elements exist in 'qenv'. Returning empty 'qenv'."
   )
 })
 
@@ -17,7 +17,7 @@ testthat::test_that("`[.` returns limited qenv for some names not in qenv", {
   })
   testthat::expect_warning(
     testthat::expect_equal(data[c("y", "a")], data["a"]),
-    "Some elements of `names` do not exist in `qenv`. Skipping those: y."
+    "Some elements of 'names' do not exist in 'qenv'. Skipping those: y."
   )
 })