use standard type checking

R/eval-select.R

@@ -209,15 +209,13 @@ eval_select_impl <- function(x,
   )
 
   if (length(include) > 0) {
-    if (!is.character(include)) {
-      cli::cli_abort("{.arg include} must be a character vector.", call = error_call)
-    }
+    check_character(include, call = error_call)
 
     missing <- setdiff(include, names)
     if (length(missing) > 0) {
       cli::cli_abort(c(
         "{.arg include} must only include variables found in {.arg data}.",
-        i = "Unknown variables: {.and {missing}}"
+        i = "Unknown variables: {.var {missing}}"
       ), call = error_call)
     }
 
@@ -228,9 +226,7 @@ eval_select_impl <- function(x,
   }
 
   if (length(exclude) > 0) {
-    if (!is.character(exclude)) {
-      cli::cli_abort("{.arg include} must be a character vector.", call = error_call)
-    }
+    check_character(exclude, call = error_call)
 
     to_exclude <- vctrs::vec_match(intersect(exclude, names), names)
     out <- out[!out %in% to_exclude]

R/helpers-misc.R

@@ -61,10 +61,7 @@ everything <- function(vars = NULL) {
 #' @export
 #' @param offset Set it to `n` to select the nth var from the end.
 last_col <- function(offset = 0L, vars = NULL) {
-  if (!is_integerish(offset, n = 1)) {
-    not <- obj_type_friendly(offset)
-    cli::cli_abort("{.arg offset} must be a single integer, not {not}.")
-  }
+  check_number_whole(offset)
 
   vars <- vars %||% peek_vars(fn = "last_col")
   n <- length(vars)