Deprecate .data

DESCRIPTION

@@ -18,6 +18,7 @@ Depends:
 Imports:
     cli (>= 3.3.0),
     glue (>= 1.3.0),
+    lifecycle (>= 1.0.1.9000),
     rlang (>= 1.0.4),
     vctrs (>= 0.4.1.9000),
     withr
@@ -41,3 +42,5 @@ Config/Needs/website: tidyverse/tidytemplate
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.2.1
+Remotes:  
+    r-lib/lifecycle

NEWS.md

@@ -1,5 +1,9 @@
 # tidyselect (development version)
 
+* Use of `.data` in tidyselect expressions is now deprecated to more cleanly
+  separate tidy-select from data-masking. Use `any_of()` or `all_of()` instead
+  (#169).
+
 * `eval_select()` out-of-bounds errors now use the verb "select" rather than
   "subset" in the error message for consistency with `dplyr::select()` (#271).
 

R/eval-walk.R

@@ -277,6 +277,11 @@ call_kind <- function(expr, error_call) {
   fn <- as_string(head)
 
   if (fn %in% c("$", "[[") && identical(node_cadr(expr), quote(.data))) {
+    lifecycle::deprecate_warn("1.2.0",
+      what = I("Use of .data in tidyselect expressions"),
+      with = I("`any_of()` or `all_of()`")
+    )
+
     validate_dot_data(expr, error_call)
     return(".data")
   }

tests/testthat/_snaps/eval-walk.md

@@ -95,6 +95,16 @@
       Caused by error:
       ! object 'foobar' not found
 
+# use of .data is deprecated
+
+    Code
+      x <- select_loc(x, .data$a)
+    Condition
+      Warning:
+      Use of .data in tidyselect expressions was deprecated in tidyselect 1.2.0.
+      Please use `any_of()` or `all_of()` instead.
+      Call `lifecycle::last_lifecycle_warnings()` to see where this warning was generated.
+
 # eval_walk() has informative messages
 
     Code

tests/testthat/test-eval-walk.R

@@ -271,12 +271,19 @@ test_that("selections provide informative errors", {
 })
 
 test_that("can select with .data pronoun (#2715)", {
+  withr::local_options(lifecycle_verbosity = "quiet")
+
   expect_identical(select_loc(c(foo = "foo"), .data$foo), c(foo = 1L))
   expect_identical(select_loc(c(foo = "foo"), .data[["foo"]]), c(foo = 1L))
   expect_identical(select_loc(letters2, .data$a:.data$b), c(a = 1L, b = 2L))
   expect_identical(select_loc(letters2, .data[["a"]]:.data[["b"]]), c(a = 1L, b = 2L))
 })
 
+test_that("use of .data is deprecated", {
+  x <- list(a = 1, b = 2, c = 3)
+  expect_snapshot(x <- select_loc(x, .data$a))
+})
+
 test_that(".data in env-expression has the lexical definition", {
   quo <- local({
     .data <- mtcars
@@ -335,6 +342,7 @@ test_that("eval_sym() still supports predicate functions starting with `is`", {
 })
 
 test_that("eval_walk() has informative messages", {
+  withr::local_options(lifecycle_verbosity = "quiet")
   reset_warning_verbosity("tidyselect::predicate_warn_is_integer")
   reset_warning_verbosity("tidyselect::predicate_warn_is.numeric")
   reset_warning_verbosity("tidyselect::predicate_warn_isTRUE")

tests/testthat/test-lifecycle-deprecated.R

@@ -315,6 +315,8 @@ test_that("vars_rename() sets variable context", {
 })
 
 test_that("vars_rename() supports `.data` pronoun", {
+  withr::local_options(lifecycle_verbosity = "quiet")
+
   expect_identical(vars_rename(c("a", "b"), B = .data$b), c(a = "a", B = "b"))
 })