testing character, rather than call b/c inconsistencies

Author: dsweber2

R/slide.R

@@ -509,10 +509,10 @@ epi_slide_opt <- function(x, col_names, f, ..., before = NULL, after = NULL, ref
   # positions of user-provided `col_names` into string column names. We avoid
   # using `names(pos)` directly for robustness and in case we later want to
   # allow users to rename fields via tidyselection.
-  if (class(quo_get_expr(enquo(col_names))) == "call") {
-    pos <- eval_select(enquo(col_names), data = x, allow_rename = FALSE)
-  } else {
+  if (class(quo_get_expr(enquo(col_names))) == "character") {
     pos <- eval_select(all_of(col_names), data = x, allow_rename = FALSE)
+  } else {
+    pos <- eval_select(enquo(col_names), data = x, allow_rename = FALSE)
   }
   col_names_chr <- names(x)[pos]
   # Always rename results to "slide_value_<original column name>".