test_that("quo_is_variable_reference handles .data",{
expect_true(quo_is_variable_reference(quo(x)))
expect_true(quo_is_variable_reference(quo(.data$x)))
expect_true(quo_is_variable_reference(quo(.data[["x"]])))
quo <- new_quosure(quote(.data[[identity("x")]]))
expect_false(quo_is_variable_reference(quo))
})
Generated by dwww version 1.15 on Sun Jun 16 11:15:57 CEST 2024.