check_facet_class() --> check_vars()

Author: teunbrand

R/facet-.R

@@ -443,7 +443,7 @@ df.grid <- function(a, b) {
 # facetting variables.
 
 as_facets_list <- function(x) {
-  check_facet_class(x)
+  check_vars(x)
   if (is_quosures(x)) {
     x <- quos_auto_name(x)
     return(list(x))
@@ -487,7 +487,7 @@ as_facets_list <- function(x) {
   x
 }
 
-check_facet_class <- function(x) {
+check_vars <- function(x) {
   if (is.mapping(x)) {
     cli::cli_abort("Please use {.fn vars} to supply facet variables.")
   }

tests/testthat/_snaps/facet-.md

@@ -3,15 +3,15 @@
     Code
       facet_wrap(aes(foo))
     Condition
-      Error in `check_facet_class()`:
+      Error in `check_vars()`:
       ! Please use `vars()` to supply facet variables.
 
 ---
 
     Code
       facet_grid(aes(foo))
     Condition
-      Error in `check_facet_class()`:
+      Error in `check_vars()`:
       ! Please use `vars()` to supply facet variables.
 
 # facet_grid() fails if passed both a formula and a vars()
@@ -73,7 +73,7 @@
       Error:
       ! object 'no_such_variable' not found
 
-# check_facet_class() provide meaningful errors
+# check_vars() provide meaningful errors
 
     Please use `vars()` to supply facet variables.
 

tests/testthat/test-facet-.R

@@ -469,9 +469,9 @@ test_that("eval_facet() is tolerant for missing columns (#2963)", {
   )
 })
 
-test_that("check_facet_class() provide meaningful errors", {
-  expect_snapshot_error(check_facet_class(aes(var)))
-  expect_snapshot_error(check_facet_class(ggplot()))
+test_that("check_vars() provide meaningful errors", {
+  expect_snapshot_error(check_vars(aes(var)))
+  expect_snapshot_error(check_vars(ggplot()))
 })
 
 test_that("check_layout() throws meaningful errors", {