From 14b7902791e86f25bb64e66c890c11418fd4959c Mon Sep 17 00:00:00 2001
From: Maximilian Girlich <maximilian.girlich@metoda.com>
Date: Wed, 15 Mar 2023 14:24:22 +0000
Subject: [PATCH] Check `vars` argument of `tbl_sql()`

---
 R/tbl-sql.R | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/R/tbl-sql.R b/R/tbl-sql.R
index d3129c8cb..844eb3ad0 100644
--- 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,