Check vars argument of tbl_sql()

tidyverse · Mar 16, 2023 · eca5de6 · eca5de6
1 parent a93c845
commit eca5de6
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/tbl-sql.R b/R/tbl-sql.R
@@ -19,12 +19,9 @@ tbl_sql <- function(subclass, src, from, ..., vars = NULL) {
     from <- as.sql(from, con = src$con)
   }
 
+  check_character(vars, allow_null = TRUE)
   vars <- vars %||% dbplyr_query_fields(src$con, from_sql)
 
-  tbl_sql_impl(subclass, src, from, vars)
-}
-
-tbl_sql_impl <- function(subclass, src, from, vars) {
   dplyr::make_tbl(
     c(subclass, "sql", "lazy"),
     src = src,