filter: fix bug when passing a vector in RHS of %in%

etiennebacher · Aug 14, 2023 · 5c35651 · 5c35651
1 parent e13f906
commit 5c35651
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/utils-expr.R b/R/utils-expr.R
@@ -108,6 +108,9 @@ translate_expr <- function(.data, quo) {
               {
                 lhs <- translate(expr[[2]])
                 rhs <- translate(expr[[3]])
+                if (is.list(rhs)) {
+                  rhs <- unlist(rhs)
+                }
                 lhs$is_in(rhs)
               },
               error = identity