Convert NA to macro, duckdb/duckdb-r#156

tidyverse · May 4, 2024 · 7170fe3 · 7170fe3
1 parent cd01ed6
commit 7170fe3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/R/relational-duckdb.R b/R/relational-duckdb.R
@@ -15,6 +15,9 @@ get_default_duckdb_connection <- function() {
 }
 
 duckplyr_macros <- c(
+  # https://github.com/duckdb/duckdb-r/pull/156
+  "___null" = "() AS CAST(NULL AS BOOLEAN)",
+
   "<" = '(x, y) AS "r_base::<"(x, y)',
   "<=" = '(x, y) AS "r_base::<="(x, y)',
   ">" = '(x, y) AS "r_base::>"(x, y)',

diff --git a/R/relational.R b/R/relational.R
@@ -118,9 +118,10 @@ rel_translate <- function(
 
     switch(typeof(expr),
       character = ,
-      logical = ,
       integer = ,
       double = relexpr_constant(expr),
+      # https://github.com/duckdb/duckdb-r/pull/156
+      logical = if (is.na(expr)) relexpr_function("___null", list()) else relexpr_constant(expr),
       #
       symbol = {
         if (as.character(expr) %in% names_forbidden) {