Compat: Translate is.na() to isnan()

krlmlr · krlmlr · commit 6c291e1969e7 · 2025-02-01T08:09:34.000+01:00
diff --git a/R/relational-duckdb.R b/R/relational-duckdb.R
@@ -33,7 +33,7 @@ duckplyr_macros <- c(
   #
   "___divide" = "(x, y) AS CASE WHEN y = 0 THEN CASE WHEN x = 0 THEN CAST('NaN' AS double) WHEN x > 0 THEN CAST('+Infinity' AS double) ELSE CAST('-Infinity' AS double) END ELSE CAST(x AS double) / y END",
   #
-  "is.na" = "(x) AS (x IS NULL)",
+  "is.na" = "(x) AS (x IS NULL OR isnan(x))",
   "n" = "() AS CAST(COUNT(*) AS int32)",
   #
   "___log10" = "(x) AS CASE WHEN x < 0 THEN CAST('NaN' AS double) WHEN x = 0 THEN CAST('-Inf' AS double) ELSE log10(x) END",

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@ duckplyr_macros <- c(`
`33`	`33`	`#`
`34`	`34`	`"___divide" = "(x, y) AS CASE WHEN y = 0 THEN CASE WHEN x = 0 THEN CAST('NaN' AS double) WHEN x > 0 THEN CAST('+Infinity' AS double) ELSE CAST('-Infinity' AS double) END ELSE CAST(x AS double) / y END",`
`35`	`35`	`#`
`36`		`- "is.na" = "(x) AS (x IS NULL)",`
	`36`	`+ "is.na" = "(x) AS (x IS NULL OR isnan(x))",`
`37`	`37`	`"n" = "() AS CAST(COUNT(*) AS int32)",`
`38`	`38`	`#`
`39`	`39`	`"___log10" = "(x) AS CASE WHEN x < 0 THEN CAST('NaN' AS double) WHEN x = 0 THEN CAST('-Inf' AS double) ELSE log10(x) END",`