From 974ec96a86d230fb5e61d7d680d832a5a38dc266 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kirill=20M=C3=BCller?= <kirill@cynkra.com>
Date: Sat, 4 May 2024 22:11:37 +0200
Subject: [PATCH] Corner case for `%in%`

---
 R/relational.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/relational.R b/R/relational.R
index cfd4ecf74..0f0158a71 100644
--- a/R/relational.R
+++ b/R/relational.R
@@ -189,6 +189,9 @@ rel_translate <- function(
             tryCatch(
               {
                 values <- eval(expr[[3]], envir = env)
+                if (length(values) == 0) {
+                  return(relexpr_constant(FALSE))
+                }
                 consts <- map(values, do_translate, in_window = in_window)
                 ops <- map(consts, list, do_translate(expr[[2]]))
                 cmp <- map(ops, relexpr_function, name = "___eq_na_matches_na")