diff --git a/R/tpch_raw_12.R b/R/tpch_raw_12.R index e173975e..d7dec9fd 100644 --- a/R/tpch_raw_12.R +++ b/R/tpch_raw_12.R @@ -9,7 +9,7 @@ tpch_raw_12 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MAIL", experimental = experimental) @@ -20,7 +20,7 @@ tpch_raw_12 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SHIP", experimental = experimental) diff --git a/R/tpch_raw_16.R b/R/tpch_raw_16.R index d4377a4c..00cffdc0 100644 --- a/R/tpch_raw_16.R +++ b/R/tpch_raw_16.R @@ -54,7 +54,7 @@ tpch_raw_16 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(49, experimental = experimental) @@ -65,7 +65,7 @@ tpch_raw_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(14, experimental = experimental) @@ -78,7 +78,7 @@ tpch_raw_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(23, experimental = experimental) @@ -91,7 +91,7 @@ tpch_raw_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(45, experimental = experimental) @@ -104,7 +104,7 @@ tpch_raw_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(19, experimental = experimental) @@ -117,7 +117,7 @@ tpch_raw_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(3, experimental = experimental) @@ -130,7 +130,7 @@ tpch_raw_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(36, experimental = experimental) @@ -143,7 +143,7 @@ tpch_raw_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(9, experimental = experimental) diff --git a/R/tpch_raw_19.R b/R/tpch_raw_19.R index 91282d1a..b95f16fd 100644 --- a/R/tpch_raw_19.R +++ b/R/tpch_raw_19.R @@ -196,7 +196,7 @@ tpch_raw_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM CASE", experimental = experimental) @@ -207,7 +207,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM BOX", experimental = experimental) @@ -220,7 +220,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM PACK", experimental = experimental) @@ -233,7 +233,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM PKG", experimental = experimental) @@ -313,7 +313,7 @@ tpch_raw_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -324,7 +324,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) @@ -393,7 +393,7 @@ tpch_raw_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED BAG", experimental = experimental) @@ -404,7 +404,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED BOX", experimental = experimental) @@ -417,7 +417,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED PKG", experimental = experimental) @@ -430,7 +430,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED PACK", experimental = experimental) @@ -510,7 +510,7 @@ tpch_raw_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -521,7 +521,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) @@ -592,7 +592,7 @@ tpch_raw_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG CASE", experimental = experimental) @@ -603,7 +603,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG BOX", experimental = experimental) @@ -616,7 +616,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG PACK", experimental = experimental) @@ -629,7 +629,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG PKG", experimental = experimental) @@ -709,7 +709,7 @@ tpch_raw_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -720,7 +720,7 @@ tpch_raw_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) diff --git a/R/tpch_raw_22.R b/R/tpch_raw_22.R index e23b4830..526334f5 100644 --- a/R/tpch_raw_22.R +++ b/R/tpch_raw_22.R @@ -27,7 +27,7 @@ tpch_raw_22 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("13", experimental = experimental) @@ -53,7 +53,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("31", experimental = experimental) @@ -81,7 +81,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("23", experimental = experimental) @@ -109,7 +109,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("29", experimental = experimental) @@ -137,7 +137,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("30", experimental = experimental) @@ -165,7 +165,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("18", experimental = experimental) @@ -193,7 +193,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("17", experimental = experimental) @@ -552,7 +552,7 @@ tpch_raw_22 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("13", experimental = experimental) @@ -563,7 +563,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("31", experimental = experimental) @@ -576,7 +576,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("23", experimental = experimental) @@ -589,7 +589,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("29", experimental = experimental) @@ -602,7 +602,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("30", experimental = experimental) @@ -615,7 +615,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("18", experimental = experimental) @@ -628,7 +628,7 @@ tpch_raw_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("17", experimental = experimental) diff --git a/R/tpch_raw_oo_12.R b/R/tpch_raw_oo_12.R index 347f52cb..56fee896 100644 --- a/R/tpch_raw_oo_12.R +++ b/R/tpch_raw_oo_12.R @@ -99,7 +99,7 @@ tpch_raw_oo_12 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MAIL", experimental = experimental) @@ -110,7 +110,7 @@ tpch_raw_oo_12 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SHIP", experimental = experimental) diff --git a/R/tpch_raw_oo_16.R b/R/tpch_raw_oo_16.R index 2f7a2932..1b373568 100644 --- a/R/tpch_raw_oo_16.R +++ b/R/tpch_raw_oo_16.R @@ -109,7 +109,7 @@ tpch_raw_oo_16 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(49, experimental = experimental) @@ -120,7 +120,7 @@ tpch_raw_oo_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(14, experimental = experimental) @@ -133,7 +133,7 @@ tpch_raw_oo_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(23, experimental = experimental) @@ -146,7 +146,7 @@ tpch_raw_oo_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(45, experimental = experimental) @@ -159,7 +159,7 @@ tpch_raw_oo_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(19, experimental = experimental) @@ -172,7 +172,7 @@ tpch_raw_oo_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(3, experimental = experimental) @@ -185,7 +185,7 @@ tpch_raw_oo_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(36, experimental = experimental) @@ -198,7 +198,7 @@ tpch_raw_oo_16 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(9, experimental = experimental) diff --git a/R/tpch_raw_oo_19.R b/R/tpch_raw_oo_19.R index de59660a..15734cb6 100644 --- a/R/tpch_raw_oo_19.R +++ b/R/tpch_raw_oo_19.R @@ -475,7 +475,7 @@ tpch_raw_oo_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM CASE", experimental = experimental) @@ -486,7 +486,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM BOX", experimental = experimental) @@ -499,7 +499,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM PACK", experimental = experimental) @@ -512,7 +512,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM PKG", experimental = experimental) @@ -592,7 +592,7 @@ tpch_raw_oo_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -603,7 +603,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) @@ -672,7 +672,7 @@ tpch_raw_oo_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED BAG", experimental = experimental) @@ -683,7 +683,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED BOX", experimental = experimental) @@ -696,7 +696,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED PKG", experimental = experimental) @@ -709,7 +709,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED PACK", experimental = experimental) @@ -789,7 +789,7 @@ tpch_raw_oo_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -800,7 +800,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) @@ -871,7 +871,7 @@ tpch_raw_oo_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG CASE", experimental = experimental) @@ -882,7 +882,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG BOX", experimental = experimental) @@ -895,7 +895,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG PACK", experimental = experimental) @@ -908,7 +908,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG PKG", experimental = experimental) @@ -988,7 +988,7 @@ tpch_raw_oo_19 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -999,7 +999,7 @@ tpch_raw_oo_19 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) diff --git a/R/tpch_raw_oo_22.R b/R/tpch_raw_oo_22.R index 72bd1cca..5c694d1e 100644 --- a/R/tpch_raw_oo_22.R +++ b/R/tpch_raw_oo_22.R @@ -77,7 +77,7 @@ tpch_raw_oo_22 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("13", experimental = experimental) @@ -103,7 +103,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("31", experimental = experimental) @@ -131,7 +131,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("23", experimental = experimental) @@ -159,7 +159,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("29", experimental = experimental) @@ -187,7 +187,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("30", experimental = experimental) @@ -215,7 +215,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("18", experimental = experimental) @@ -243,7 +243,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("17", experimental = experimental) @@ -797,7 +797,7 @@ tpch_raw_oo_22 <- function(con, experimental) { "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("13", experimental = experimental) @@ -808,7 +808,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("31", experimental = experimental) @@ -821,7 +821,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("23", experimental = experimental) @@ -834,7 +834,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("29", experimental = experimental) @@ -847,7 +847,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("30", experimental = experimental) @@ -860,7 +860,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("18", experimental = experimental) @@ -873,7 +873,7 @@ tpch_raw_oo_22 <- function(con, experimental) { ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("17", experimental = experimental) diff --git a/tests/testthat/test-rel_api.R b/tests/testthat/test-rel_api.R index 2de130a2..88c82a27 100644 --- a/tests/testthat/test-rel_api.R +++ b/tests/testthat/test-rel_api.R @@ -5,7 +5,8 @@ test_that("relational anti_join(join_by(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -76,7 +77,8 @@ test_that("relational anti_join(join_by(a)) order-preserving", { test_that("relational anti_join(join_by(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -112,7 +114,8 @@ test_that("relational anti_join(join_by(a)) order-enforcing", { test_that("relational arrange() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -129,7 +132,8 @@ test_that("relational arrange() order-preserving", { test_that("relational arrange(a) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -192,7 +196,8 @@ test_that("relational arrange(a) order-preserving", { test_that("relational arrange(g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -255,7 +260,8 @@ test_that("relational arrange(g) order-preserving", { test_that("relational arrange(g, a) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -321,7 +327,8 @@ test_that("relational arrange(g, a) order-preserving", { test_that("relational arrange(a, g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -389,7 +396,8 @@ test_that("relational arrange(a, g) order-preserving", { test_that("relational arrange() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -411,7 +419,8 @@ test_that("relational arrange() order-enforcing", { test_that("relational arrange(a) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -433,7 +442,8 @@ test_that("relational arrange(a) order-enforcing", { test_that("relational arrange(g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -455,7 +465,8 @@ test_that("relational arrange(g) order-enforcing", { test_that("relational arrange(g, a) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -477,7 +488,8 @@ test_that("relational arrange(g, a) order-enforcing", { test_that("relational arrange(a, g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -501,7 +513,8 @@ test_that("relational arrange(a, g) order-enforcing", { test_that("relational count() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -530,7 +543,8 @@ test_that("relational count() order-preserving", { test_that("relational count(a) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -575,7 +589,8 @@ test_that("relational count(a) order-preserving", { test_that("relational count(b) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -620,7 +635,8 @@ test_that("relational count(b) order-preserving", { test_that("relational count(g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -665,7 +681,8 @@ test_that("relational count(g) order-preserving", { test_that("relational count(g, a) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -720,7 +737,8 @@ test_that("relational count(g, a) order-preserving", { test_that("relational count(b, g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -777,7 +795,8 @@ test_that("relational count(b, g) order-preserving", { test_that("relational count() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -807,7 +826,8 @@ test_that("relational count() order-enforcing", { test_that("relational count(a) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -853,7 +873,8 @@ test_that("relational count(a) order-enforcing", { test_that("relational count(b) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -899,7 +920,8 @@ test_that("relational count(b) order-enforcing", { test_that("relational count(g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -945,7 +967,8 @@ test_that("relational count(g) order-enforcing", { test_that("relational count(g, a) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -1004,7 +1027,8 @@ test_that("relational count(g, a) order-enforcing", { test_that("relational count(b, g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -1065,9 +1089,11 @@ test_that("relational count(b, g) order-enforcing", { test_that("relational distinct() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -1193,9 +1219,11 @@ test_that("relational distinct() order-preserving", { test_that("relational distinct(a) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -1291,9 +1319,11 @@ test_that("relational distinct(a) order-preserving", { test_that("relational distinct(a, b) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -1404,9 +1434,11 @@ test_that("relational distinct(a, b) order-preserving", { test_that("relational distinct(b, b) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -1502,9 +1534,11 @@ test_that("relational distinct(b, b) order-preserving", { test_that("relational distinct(g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -1600,9 +1634,11 @@ test_that("relational distinct(g) order-preserving", { test_that("relational union_all(data.frame(a = 1L, b = 3, g = 2L)) %>% distinct(g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -1794,9 +1830,11 @@ test_that("relational union_all(data.frame(a = 1L, b = 3, g = 2L)) %>% distinct( test_that("relational union_all(data.frame(a = 1L, b = 4, g = 2L)) %>% distinct(g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -1988,9 +2026,11 @@ test_that("relational union_all(data.frame(a = 1L, b = 4, g = 2L)) %>% distinct( test_that("relational union_all(data.frame(a = 1L, b = 5, g = 2L)) %>% distinct(g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -2182,9 +2222,11 @@ test_that("relational union_all(data.frame(a = 1L, b = 5, g = 2L)) %>% distinct( test_that("relational union_all(data.frame(a = 1L, b = 6, g = 2L)) %>% distinct(g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -2376,9 +2418,11 @@ test_that("relational union_all(data.frame(a = 1L, b = 6, g = 2L)) %>% distinct( test_that("relational union_all(data.frame(a = 1L, b = 7, g = 2L)) %>% distinct(g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -2570,9 +2614,11 @@ test_that("relational union_all(data.frame(a = 1L, b = 7, g = 2L)) %>% distinct( test_that("relational distinct(g, .keep_all = TRUE) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -2690,7 +2736,8 @@ test_that("relational distinct(g, .keep_all = TRUE) order-preserving", { test_that("relational distinct() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2712,7 +2759,8 @@ test_that("relational distinct() order-enforcing", { test_that("relational distinct(a) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2741,7 +2789,8 @@ test_that("relational distinct(a) order-enforcing", { test_that("relational distinct(a, b) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2775,7 +2824,8 @@ test_that("relational distinct(a, b) order-enforcing", { test_that("relational distinct(b, b) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2804,7 +2854,8 @@ test_that("relational distinct(b, b) order-enforcing", { test_that("relational distinct(g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2833,7 +2884,8 @@ test_that("relational distinct(g) order-enforcing", { test_that("relational union_all(data.frame(a = 1L, b = 3, g = 2L)) %>% distinct(g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2866,7 +2918,8 @@ test_that("relational union_all(data.frame(a = 1L, b = 3, g = 2L)) %>% distinct( test_that("relational union_all(data.frame(a = 1L, b = 4, g = 2L)) %>% distinct(g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2899,7 +2952,8 @@ test_that("relational union_all(data.frame(a = 1L, b = 4, g = 2L)) %>% distinct( test_that("relational union_all(data.frame(a = 1L, b = 5, g = 2L)) %>% distinct(g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2932,7 +2986,8 @@ test_that("relational union_all(data.frame(a = 1L, b = 5, g = 2L)) %>% distinct( test_that("relational union_all(data.frame(a = 1L, b = 6, g = 2L)) %>% distinct(g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2965,7 +3020,8 @@ test_that("relational union_all(data.frame(a = 1L, b = 6, g = 2L)) %>% distinct( test_that("relational union_all(data.frame(a = 1L, b = 7, g = 2L)) %>% distinct(g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -2998,9 +3054,11 @@ test_that("relational union_all(data.frame(a = 1L, b = 7, g = 2L)) %>% distinct( test_that("relational distinct(g, .keep_all = TRUE) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -3122,9 +3180,11 @@ test_that("relational distinct(g, .keep_all = TRUE) order-enforcing", { test_that("relational filter(a == 1) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -3202,13 +3262,15 @@ test_that("relational filter(a == 1) order-preserving", { test_that("relational filter(a %in% 2:3, g == 2) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -3313,14 +3375,16 @@ test_that("relational filter(a %in% 2:3, g == 2) order-preserving", { test_that("relational filter(a %in% 2:3 & g == 2) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -3430,10 +3494,12 @@ test_that("relational filter(a %in% 2:3 & g == 2) order-preserving", { test_that("relational filter(a != 2 | g != 2) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) - invisible(DBI::dbExecute(con, 'CREATE MACRO "!="(x, y) AS x <> y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "!="(x, y) AS "r_base::!="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -3529,9 +3595,11 @@ test_that("relational filter(a != 2 | g != 2) order-preserving", { test_that("relational filter(a == 1) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -3567,13 +3635,15 @@ test_that("relational filter(a == 1) order-enforcing", { test_that("relational filter(a %in% 2:3, g == 2) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -3636,14 +3706,16 @@ test_that("relational filter(a %in% 2:3, g == 2) order-enforcing", { test_that("relational filter(a %in% 2:3 & g == 2) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -3711,10 +3783,12 @@ test_that("relational filter(a %in% 2:3 & g == 2) order-enforcing", { test_that("relational filter(a != 2 | g != 2) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) - invisible(DBI::dbExecute(con, 'CREATE MACRO "!="(x, y) AS x <> y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "!="(x, y) AS "r_base::!="(x, y)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -3768,7 +3842,8 @@ test_that("relational filter(a != 2 | g != 2) order-enforcing", { test_that("relational full_join(join_by(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -3898,7 +3973,8 @@ test_that("relational full_join(join_by(a)) order-preserving", { test_that("relational full_join(join_by(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -3988,7 +4064,8 @@ test_that("relational full_join(join_by(a)) order-enforcing", { test_that("relational inner_join(join_by(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -4118,7 +4195,8 @@ test_that("relational inner_join(join_by(a)) order-preserving", { test_that("relational inner_join(join_by(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -4208,12 +4286,14 @@ test_that("relational inner_join(join_by(a)) order-enforcing", { test_that("relational intersect() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = 1:4, b = rep(2, 4L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -4371,7 +4451,8 @@ test_that("relational intersect() order-preserving", { test_that("relational intersect() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = 1:4, b = rep(2, 4L)) @@ -4395,7 +4476,8 @@ test_that("relational intersect() order-enforcing", { test_that("relational left_join(join_by(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -4525,7 +4607,8 @@ test_that("relational left_join(join_by(a)) order-preserving", { test_that("relational left_join(join_by(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -4615,7 +4698,8 @@ test_that("relational left_join(join_by(a)) order-enforcing", { test_that("relational mutate() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -4632,7 +4716,8 @@ test_that("relational mutate() order-preserving", { test_that("relational mutate(a + 1) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -4690,7 +4775,8 @@ test_that("relational mutate(a + 1) order-preserving", { test_that("relational mutate(a + 1, .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -4804,7 +4890,8 @@ test_that("relational mutate(a + 1, .by = g) order-preserving", { test_that("relational mutate(c = a + 1) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -4861,7 +4948,8 @@ test_that("relational mutate(c = a + 1) order-preserving", { test_that("relational mutate(`if` = a + 1) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -4919,7 +5007,8 @@ test_that("relational mutate(`if` = a + 1) order-preserving", { test_that("relational mutate(sum(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -4967,7 +5056,8 @@ test_that("relational mutate(sum(a)) order-preserving", { test_that("relational mutate(sum(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5071,7 +5161,8 @@ test_that("relational mutate(sum(a), .by = g) order-preserving", { test_that("relational mutate(mean(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5119,7 +5210,8 @@ test_that("relational mutate(mean(a)) order-preserving", { test_that("relational mutate(mean(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5223,7 +5315,8 @@ test_that("relational mutate(mean(a), .by = g) order-preserving", { test_that("relational mutate(sd(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5271,7 +5364,8 @@ test_that("relational mutate(sd(a)) order-preserving", { test_that("relational mutate(sd(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5375,7 +5469,8 @@ test_that("relational mutate(sd(a), .by = g) order-preserving", { test_that("relational mutate(lag(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5433,7 +5528,8 @@ test_that("relational mutate(lag(a)) order-preserving", { test_that("relational mutate(lag(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5547,7 +5643,8 @@ test_that("relational mutate(lag(a), .by = g) order-preserving", { test_that("relational mutate(lead(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5605,7 +5702,8 @@ test_that("relational mutate(lead(a)) order-preserving", { test_that("relational mutate(lead(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5719,7 +5817,8 @@ test_that("relational mutate(lead(a), .by = g) order-preserving", { test_that("relational mutate(lag(a, 2)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5777,7 +5876,8 @@ test_that("relational mutate(lag(a, 2)) order-preserving", { test_that("relational mutate(lag(a, 2), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5891,7 +5991,8 @@ test_that("relational mutate(lag(a, 2), .by = g) order-preserving", { test_that("relational mutate(lead(a, 2)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -5949,7 +6050,8 @@ test_that("relational mutate(lead(a, 2)) order-preserving", { test_that("relational mutate(lead(a, 2), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6063,7 +6165,8 @@ test_that("relational mutate(lead(a, 2), .by = g) order-preserving", { test_that("relational mutate(lag(a, 4)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6121,7 +6224,8 @@ test_that("relational mutate(lag(a, 4)) order-preserving", { test_that("relational mutate(lag(a, 4), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6235,7 +6339,8 @@ test_that("relational mutate(lag(a, 4), .by = g) order-preserving", { test_that("relational mutate(lead(a, 4)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6293,7 +6398,8 @@ test_that("relational mutate(lead(a, 4)) order-preserving", { test_that("relational mutate(lead(a, 4), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6407,7 +6513,8 @@ test_that("relational mutate(lead(a, 4), .by = g) order-preserving", { test_that("relational mutate(lag(a, default = 0)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6469,7 +6576,8 @@ test_that("relational mutate(lag(a, default = 0)) order-preserving", { test_that("relational mutate(lag(a, default = 0), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6587,7 +6695,8 @@ test_that("relational mutate(lag(a, default = 0), .by = g) order-preserving", { test_that("relational mutate(lead(a, default = 1000)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6649,7 +6758,8 @@ test_that("relational mutate(lead(a, default = 1000)) order-preserving", { test_that("relational mutate(lead(a, default = 1000), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6767,7 +6877,8 @@ test_that("relational mutate(lead(a, default = 1000), .by = g) order-preserving" test_that("relational mutate(min(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6815,7 +6926,8 @@ test_that("relational mutate(min(a)) order-preserving", { test_that("relational mutate(min(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6919,7 +7031,8 @@ test_that("relational mutate(min(a), .by = g) order-preserving", { test_that("relational mutate(max(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -6967,7 +7080,8 @@ test_that("relational mutate(max(a)) order-preserving", { test_that("relational mutate(max(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -7071,7 +7185,8 @@ test_that("relational mutate(max(a), .by = g) order-preserving", { test_that("relational mutate(first(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -7119,7 +7234,8 @@ test_that("relational mutate(first(a)) order-preserving", { test_that("relational mutate(first(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -7223,7 +7339,8 @@ test_that("relational mutate(first(a), .by = g) order-preserving", { test_that("relational mutate(last(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -7271,7 +7388,8 @@ test_that("relational mutate(last(a)) order-preserving", { test_that("relational mutate(last(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -7375,7 +7493,8 @@ test_that("relational mutate(last(a), .by = g) order-preserving", { test_that("relational mutate(nth(a, 2)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -7439,7 +7558,8 @@ test_that("relational mutate(nth(a, 2)) order-preserving", { test_that("relational mutate(nth(a, 2), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -7559,7 +7679,8 @@ test_that("relational mutate(nth(a, 2), .by = g) order-preserving", { test_that("relational mutate(a / b) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -7613,7 +7734,8 @@ test_that("relational mutate(a / b) order-preserving", { test_that("relational mutate(d = 0, e = 1 / d, f = 0 / d, g = -1 / d) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -7807,7 +7929,8 @@ test_that("relational mutate(d = 0, e = 1 / d, f = 0 / d, g = -1 / d) order-pres test_that("relational mutate(c = 0, d = -1, e = log(c), f = suppressWarnings(log(d))) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -7982,7 +8105,8 @@ test_that("relational mutate(c = 0, d = -1, e = log(c), f = suppressWarnings(log test_that("relational mutate(c = 0, d = -1, e = log10(c), f = suppressWarnings(log10(d))) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -8157,7 +8281,8 @@ test_that("relational mutate(c = 0, d = -1, e = log10(c), f = suppressWarnings(l test_that("relational mutate(c = 10, d = log(c)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -8245,7 +8370,8 @@ test_that("relational mutate(c = 10, d = log(c)) order-preserving", { test_that("relational mutate(c = 10, d = log10(c)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -8333,7 +8459,8 @@ test_that("relational mutate(c = 10, d = log10(c)) order-preserving", { test_that("relational mutate(c = NA_character_, d = grepl('.', c)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -8431,7 +8558,8 @@ test_that("relational mutate(c = NA_character_, d = grepl('.', c)) order-preserv test_that("relational mutate(d = a %in% NA_real_) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -8491,7 +8619,8 @@ test_that("relational mutate(d = a %in% NA_real_) order-preserving", { test_that("relational mutate(c = NA_character_, d = c %in% NA_character_) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -8586,7 +8715,8 @@ test_that("relational mutate(c = NA_character_, d = c %in% NA_character_) order- test_that("relational mutate(d = NA_real_, e = is.na(d)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "is.na"(x) AS (x IS NULL OR isnan(x))')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -8669,7 +8799,8 @@ test_that("relational mutate(d = NA_real_, e = is.na(d)) order-preserving", { test_that("relational mutate(d = NaN, e = is.na(d)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "is.na"(x) AS (x IS NULL OR isnan(x))')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -8752,7 +8883,8 @@ test_that("relational mutate(d = NaN, e = is.na(d)) order-preserving", { test_that("relational mutate(d = row_number()) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -8800,7 +8932,8 @@ test_that("relational mutate(d = row_number()) order-preserving", { test_that("relational mutate(d = row_number(), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -8909,7 +9042,8 @@ test_that("relational mutate(d = row_number(), .by = g) order-preserving", { test_that("relational mutate(c = .data$b) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -8958,7 +9092,8 @@ test_that("relational mutate(c = .data$b) order-preserving", { test_that("relational mutate() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -8979,7 +9114,8 @@ test_that("relational mutate() order-enforcing", { test_that("relational mutate(a + 1) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9041,7 +9177,8 @@ test_that("relational mutate(a + 1) order-enforcing", { test_that("relational mutate(a + 1, .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9103,7 +9240,8 @@ test_that("relational mutate(a + 1, .by = g) order-enforcing", { test_that("relational mutate(c = a + 1) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9164,7 +9302,8 @@ test_that("relational mutate(c = a + 1) order-enforcing", { test_that("relational mutate(`if` = a + 1) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9226,7 +9365,8 @@ test_that("relational mutate(`if` = a + 1) order-enforcing", { test_that("relational mutate(sum(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9278,7 +9418,8 @@ test_that("relational mutate(sum(a)) order-enforcing", { test_that("relational mutate(sum(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9330,7 +9471,8 @@ test_that("relational mutate(sum(a), .by = g) order-enforcing", { test_that("relational mutate(mean(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9382,7 +9524,8 @@ test_that("relational mutate(mean(a)) order-enforcing", { test_that("relational mutate(mean(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9434,7 +9577,8 @@ test_that("relational mutate(mean(a), .by = g) order-enforcing", { test_that("relational mutate(sd(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9486,7 +9630,8 @@ test_that("relational mutate(sd(a)) order-enforcing", { test_that("relational mutate(sd(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9538,7 +9683,8 @@ test_that("relational mutate(sd(a), .by = g) order-enforcing", { test_that("relational mutate(lag(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9600,7 +9746,8 @@ test_that("relational mutate(lag(a)) order-enforcing", { test_that("relational mutate(lag(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9662,7 +9809,8 @@ test_that("relational mutate(lag(a), .by = g) order-enforcing", { test_that("relational mutate(lead(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9724,7 +9872,8 @@ test_that("relational mutate(lead(a)) order-enforcing", { test_that("relational mutate(lead(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9786,7 +9935,8 @@ test_that("relational mutate(lead(a), .by = g) order-enforcing", { test_that("relational mutate(lag(a, 2)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9848,7 +9998,8 @@ test_that("relational mutate(lag(a, 2)) order-enforcing", { test_that("relational mutate(lag(a, 2), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9910,7 +10061,8 @@ test_that("relational mutate(lag(a, 2), .by = g) order-enforcing", { test_that("relational mutate(lead(a, 2)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -9972,7 +10124,8 @@ test_that("relational mutate(lead(a, 2)) order-enforcing", { test_that("relational mutate(lead(a, 2), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10034,7 +10187,8 @@ test_that("relational mutate(lead(a, 2), .by = g) order-enforcing", { test_that("relational mutate(lag(a, 4)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10096,7 +10250,8 @@ test_that("relational mutate(lag(a, 4)) order-enforcing", { test_that("relational mutate(lag(a, 4), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10158,7 +10313,8 @@ test_that("relational mutate(lag(a, 4), .by = g) order-enforcing", { test_that("relational mutate(lead(a, 4)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10220,7 +10376,8 @@ test_that("relational mutate(lead(a, 4)) order-enforcing", { test_that("relational mutate(lead(a, 4), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10282,7 +10439,8 @@ test_that("relational mutate(lead(a, 4), .by = g) order-enforcing", { test_that("relational mutate(lag(a, default = 0)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10348,7 +10506,8 @@ test_that("relational mutate(lag(a, default = 0)) order-enforcing", { test_that("relational mutate(lag(a, default = 0), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10414,7 +10573,8 @@ test_that("relational mutate(lag(a, default = 0), .by = g) order-enforcing", { test_that("relational mutate(lead(a, default = 1000)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10480,7 +10640,8 @@ test_that("relational mutate(lead(a, default = 1000)) order-enforcing", { test_that("relational mutate(lead(a, default = 1000), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10546,7 +10707,8 @@ test_that("relational mutate(lead(a, default = 1000), .by = g) order-enforcing", test_that("relational mutate(min(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10598,7 +10760,8 @@ test_that("relational mutate(min(a)) order-enforcing", { test_that("relational mutate(min(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10650,7 +10813,8 @@ test_that("relational mutate(min(a), .by = g) order-enforcing", { test_that("relational mutate(max(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10702,7 +10866,8 @@ test_that("relational mutate(max(a)) order-enforcing", { test_that("relational mutate(max(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10754,7 +10919,8 @@ test_that("relational mutate(max(a), .by = g) order-enforcing", { test_that("relational mutate(first(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10806,7 +10972,8 @@ test_that("relational mutate(first(a)) order-enforcing", { test_that("relational mutate(first(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10858,7 +11025,8 @@ test_that("relational mutate(first(a), .by = g) order-enforcing", { test_that("relational mutate(last(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10910,7 +11078,8 @@ test_that("relational mutate(last(a)) order-enforcing", { test_that("relational mutate(last(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -10962,7 +11131,8 @@ test_that("relational mutate(last(a), .by = g) order-enforcing", { test_that("relational mutate(nth(a, 2)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -11030,7 +11200,8 @@ test_that("relational mutate(nth(a, 2)) order-enforcing", { test_that("relational mutate(nth(a, 2), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -11098,7 +11269,8 @@ test_that("relational mutate(nth(a, 2), .by = g) order-enforcing", { test_that("relational mutate(a / b) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -11156,7 +11328,8 @@ test_that("relational mutate(a / b) order-enforcing", { test_that("relational mutate(d = 0, e = 1 / d, f = 0 / d, g = -1 / d) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -11354,7 +11527,8 @@ test_that("relational mutate(d = 0, e = 1 / d, f = 0 / d, g = -1 / d) order-enfo test_that("relational mutate(c = 0, d = -1, e = log(c), f = suppressWarnings(log(d))) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -11533,7 +11707,8 @@ test_that("relational mutate(c = 0, d = -1, e = log(c), f = suppressWarnings(log test_that("relational mutate(c = 0, d = -1, e = log10(c), f = suppressWarnings(log10(d))) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -11712,7 +11887,8 @@ test_that("relational mutate(c = 0, d = -1, e = log10(c), f = suppressWarnings(l test_that("relational mutate(c = 10, d = log(c)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -11804,7 +11980,8 @@ test_that("relational mutate(c = 10, d = log(c)) order-enforcing", { test_that("relational mutate(c = 10, d = log10(c)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -11896,7 +12073,8 @@ test_that("relational mutate(c = 10, d = log10(c)) order-enforcing", { test_that("relational mutate(c = NA_character_, d = grepl('.', c)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( @@ -11998,7 +12176,8 @@ test_that("relational mutate(c = NA_character_, d = grepl('.', c)) order-enforci test_that("relational mutate(d = a %in% NA_real_) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -12062,7 +12241,8 @@ test_that("relational mutate(d = a %in% NA_real_) order-enforcing", { test_that("relational mutate(c = NA_character_, d = c %in% NA_character_) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -12161,7 +12341,8 @@ test_that("relational mutate(c = NA_character_, d = c %in% NA_character_) order- test_that("relational mutate(d = NA_real_, e = is.na(d)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "is.na"(x) AS (x IS NULL OR isnan(x))')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12248,7 +12429,8 @@ test_that("relational mutate(d = NA_real_, e = is.na(d)) order-enforcing", { test_that("relational mutate(d = NaN, e = is.na(d)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "is.na"(x) AS (x IS NULL OR isnan(x))')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12335,7 +12517,8 @@ test_that("relational mutate(d = NaN, e = is.na(d)) order-enforcing", { test_that("relational mutate(d = row_number()) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12387,7 +12570,8 @@ test_that("relational mutate(d = row_number()) order-enforcing", { test_that("relational mutate(d = row_number(), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12444,7 +12628,8 @@ test_that("relational mutate(d = row_number(), .by = g) order-enforcing", { test_that("relational mutate(c = .data$b) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12497,7 +12682,8 @@ test_that("relational mutate(c = .data$b) order-enforcing", { test_that("relational relocate(g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12534,7 +12720,8 @@ test_that("relational relocate(g) order-preserving", { test_that("relational relocate(a) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12571,7 +12758,8 @@ test_that("relational relocate(a) order-preserving", { test_that("relational relocate(g, .before = b) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12608,7 +12796,8 @@ test_that("relational relocate(g, .before = b) order-preserving", { test_that("relational relocate(a:b, .after = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12647,7 +12836,8 @@ test_that("relational relocate(a:b, .after = g) order-preserving", { test_that("relational relocate(g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12688,7 +12878,8 @@ test_that("relational relocate(g) order-enforcing", { test_that("relational relocate(a) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12729,7 +12920,8 @@ test_that("relational relocate(a) order-enforcing", { test_that("relational relocate(g, .before = b) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12770,7 +12962,8 @@ test_that("relational relocate(g, .before = b) order-enforcing", { test_that("relational relocate(a:b, .after = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12813,7 +13006,8 @@ test_that("relational relocate(a:b, .after = g) order-enforcing", { test_that("relational rename() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12850,7 +13044,8 @@ test_that("relational rename() order-preserving", { test_that("relational rename(c = a) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12889,7 +13084,8 @@ test_that("relational rename(c = a) order-preserving", { test_that("relational rename() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12930,7 +13126,8 @@ test_that("relational rename() order-enforcing", { test_that("relational rename(c = a) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -12973,7 +13170,8 @@ test_that("relational rename(c = a) order-enforcing", { test_that("relational right_join(join_by(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -13102,7 +13300,8 @@ test_that("relational right_join(join_by(a)) order-preserving", { test_that("relational right_join(join_by(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -13191,7 +13390,8 @@ test_that("relational right_join(join_by(a)) order-enforcing", { test_that("relational select(a) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13218,7 +13418,8 @@ test_that("relational select(a) order-preserving", { test_that("relational select(-g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13250,7 +13451,8 @@ test_that("relational select(-g) order-preserving", { test_that("relational select(everything()) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13289,7 +13491,8 @@ test_that("relational select(everything()) order-preserving", { test_that("relational select(a) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13317,7 +13520,8 @@ test_that("relational select(a) order-enforcing", { test_that("relational select(-g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13350,7 +13554,8 @@ test_that("relational select(-g) order-enforcing", { test_that("relational select(everything()) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13393,7 +13598,8 @@ test_that("relational select(everything()) order-enforcing", { test_that("relational semi_join(join_by(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -13464,7 +13670,8 @@ test_that("relational semi_join(join_by(a)) order-preserving", { test_that("relational semi_join(join_by(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') @@ -13500,12 +13707,14 @@ test_that("relational semi_join(join_by(a)) order-enforcing", { test_that("relational setdiff() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = 1:4, b = rep(2, 4L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -13663,7 +13872,8 @@ test_that("relational setdiff() order-preserving", { test_that("relational setdiff() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = 1:4, b = rep(2, 4L)) @@ -13687,7 +13897,8 @@ test_that("relational setdiff() order-enforcing", { test_that("relational summarise(c = mean(a)) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13716,7 +13927,8 @@ test_that("relational summarise(c = mean(a)) order-preserving", { test_that("relational summarise(c = mean(a), .by = b) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13790,7 +14002,8 @@ test_that("relational summarise(c = mean(a), .by = b) order-preserving", { test_that("relational summarise(c = mean(a), .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13864,7 +14077,8 @@ test_that("relational summarise(c = mean(a), .by = g) order-preserving", { test_that("relational summarise(c = 1) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13897,7 +14111,8 @@ test_that("relational summarise(c = 1) order-preserving", { test_that("relational summarise(c = 1, .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -13975,7 +14190,8 @@ test_that("relational summarise(c = 1, .by = g) order-preserving", { test_that("relational summarise(n = n(), n = n() + 1L, .by = g) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14060,7 +14276,8 @@ test_that("relational summarise(n = n(), n = n() + 1L, .by = g) order-preserving test_that("relational summarise(n = n(), n = n() + 1L) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14102,7 +14319,8 @@ test_that("relational summarise(n = n(), n = n() + 1L) order-preserving", { test_that("relational summarise(c = mean(a)) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14132,7 +14350,8 @@ test_that("relational summarise(c = mean(a)) order-enforcing", { test_that("relational summarise(c = mean(a), .by = b) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14161,7 +14380,8 @@ test_that("relational summarise(c = mean(a), .by = b) order-enforcing", { test_that("relational summarise(c = mean(a), .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14190,7 +14410,8 @@ test_that("relational summarise(c = mean(a), .by = g) order-enforcing", { test_that("relational summarise(c = 1) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14224,7 +14445,8 @@ test_that("relational summarise(c = 1) order-enforcing", { test_that("relational summarise(c = 1, .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14257,7 +14479,8 @@ test_that("relational summarise(c = 1, .by = g) order-enforcing", { test_that("relational summarise(n = n(), n = n() + 1L, .by = g) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14297,7 +14520,8 @@ test_that("relational summarise(n = n(), n = n() + 1L, .by = g) order-enforcing" test_that("relational summarise(n = n(), n = n() + 1L) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14340,12 +14564,14 @@ test_that("relational summarise(n = n(), n = n() + 1L) order-enforcing", { test_that("relational symdiff() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = 1:4, b = rep(2, 4L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -14584,7 +14810,8 @@ test_that("relational symdiff() order-preserving", { test_that("relational symdiff() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = 1:4, b = rep(2, 4L)) @@ -14608,7 +14835,8 @@ test_that("relational symdiff() order-enforcing", { test_that("relational tally() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14640,7 +14868,8 @@ test_that("relational tally() order-preserving", { test_that("relational tally() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14673,7 +14902,8 @@ test_that("relational tally() order-enforcing", { test_that("relational transmute(c = a + 1) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14710,7 +14940,8 @@ test_that("relational transmute(c = a + 1) order-preserving", { test_that("relational transmute(row = a) order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14739,7 +14970,8 @@ test_that("relational transmute(row = a) order-preserving", { test_that("relational transmute(c = a + 1) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14777,7 +15009,8 @@ test_that("relational transmute(c = a + 1) order-enforcing", { test_that("relational transmute(row = a) order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = seq(1, 6, by = 1), b = rep(2, 6L), g = c(1L, 2L, 2L, 3L, 3L, 3L)) @@ -14807,9 +15040,11 @@ test_that("relational transmute(row = a) order-enforcing", { test_that("relational union() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE - invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS x = y')) + invisible(duckdb$rapi_load_rfuns(drv@database_ref)) + invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) df1 <- data.frame(a = 1:4, b = rep(2, 4L)) rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) @@ -14998,7 +15233,8 @@ test_that("relational union() order-preserving", { test_that("relational union() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = 1:4, b = rep(2, 4L)) @@ -15023,7 +15259,8 @@ test_that("relational union() order-enforcing", { test_that("relational union_all() order-preserving", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = 1:4, b = rep(2, 4L)) @@ -15123,7 +15360,8 @@ test_that("relational union_all() order-preserving", { test_that("relational union_all() order-enforcing", { # Autogenerated duckdb <- asNamespace("duckdb") - con <- DBI::dbConnect(duckdb::duckdb()) + drv <- duckdb::duckdb() + con <- DBI::dbConnect(drv) experimental <- FALSE df1 <- data.frame(a = 1:4, b = rep(2, 4L)) diff --git a/tools/tpch-raw-oo/01.R b/tools/tpch-raw-oo/01.R index 9ace2627..a93ad14c 100644 --- a/tools/tpch-raw-oo/01.R +++ b/tools/tpch-raw-oo/01.R @@ -1,9 +1,11 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/02.R b/tools/tpch-raw-oo/02.R index 63743737..23f0391f 100644 --- a/tools/tpch-raw-oo/02.R +++ b/tools/tpch-raw-oo/02.R @@ -1,19 +1,21 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( - DBI::dbExecute(con, "CREATE MACRO \"___eq_na_matches_na\"(x, y) AS (x IS NOT DISTINCT FROM y)") + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- partsupp rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/03.R b/tools/tpch-raw-oo/03.R index f0827319..f90f6b70 100644 --- a/tools/tpch-raw-oo/03.R +++ b/tools/tpch-raw-oo/03.R @@ -1,15 +1,17 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) invisible( - DBI::dbExecute(con, "CREATE MACRO \"___eq_na_matches_na\"(x, y) AS (x IS NOT DISTINCT FROM y)") + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- orders rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/04.R b/tools/tpch-raw-oo/04.R index e07d2383..98a5cd31 100644 --- a/tools/tpch-raw-oo/04.R +++ b/tools/tpch-raw-oo/04.R @@ -1,12 +1,14 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/05.R b/tools/tpch-raw-oo/05.R index cf13e9f0..79ed9b7b 100644 --- a/tools/tpch-raw-oo/05.R +++ b/tools/tpch-raw-oo/05.R @@ -1,12 +1,14 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- nation rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/06.R b/tools/tpch-raw-oo/06.R index e46e7832..8aaded9d 100644 --- a/tools/tpch-raw-oo/06.R +++ b/tools/tpch-raw-oo/06.R @@ -1,10 +1,12 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/07.R b/tools/tpch-raw-oo/07.R index 8c7b50ce..6578b090 100644 --- a/tools/tpch-raw-oo/07.R +++ b/tools/tpch-raw-oo/07.R @@ -1,14 +1,16 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"as.integer\"(x) AS CAST(x AS int32)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) df1 <- supplier rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/08.R b/tools/tpch-raw-oo/08.R index 523dd3cc..c3c75b93 100644 --- a/tools/tpch-raw-oo/08.R +++ b/tools/tpch-raw-oo/08.R @@ -1,22 +1,24 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"as.integer\"(x) AS CAST(x AS int32)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"___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" + r"[CREATE MACRO "___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]" ) ) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) df1 <- nation diff --git a/tools/tpch-raw-oo/09.R b/tools/tpch-raw-oo/09.R index 7e174c7b..581db966 100644 --- a/tools/tpch-raw-oo/09.R +++ b/tools/tpch-raw-oo/09.R @@ -1,17 +1,19 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"as.integer\"(x) AS CAST(x AS int32)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- part rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/10.R b/tools/tpch-raw-oo/10.R index ee5e01c7..45f60a21 100644 --- a/tools/tpch-raw-oo/10.R +++ b/tools/tpch-raw-oo/10.R @@ -1,12 +1,14 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/11.R b/tools/tpch-raw-oo/11.R index b1c67e09..21f28eba 100644 --- a/tools/tpch-raw-oo/11.R +++ b/tools/tpch-raw-oo/11.R @@ -1,11 +1,13 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- nation rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/12.R b/tools/tpch-raw-oo/12.R index ede48369..9e0f4131 100644 --- a/tools/tpch-raw-oo/12.R +++ b/tools/tpch-raw-oo/12.R @@ -1,20 +1,25 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible( + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') +) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"!=\"(x, y) AS x <> y")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "!="(x, y) AS "r_base::!="(x, y)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( @@ -114,7 +119,7 @@ rel3 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MAIL", experimental = experimental) @@ -125,7 +130,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SHIP", experimental = experimental) diff --git a/tools/tpch-raw-oo/13.R b/tools/tpch-raw-oo/13.R index c1160f93..fc2d5b87 100644 --- a/tools/tpch-raw-oo/13.R +++ b/tools/tpch-raw-oo/13.R @@ -1,25 +1,27 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"!\"(x) AS (NOT x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "!"(x) AS (NOT x)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"is.na\"(x) AS (x IS NULL)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "is.na"(x) AS (x IS NULL OR isnan(x))')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- orders rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/14.R b/tools/tpch-raw-oo/14.R index 5cf68a44..9bfa6eb4 100644 --- a/tools/tpch-raw-oo/14.R +++ b/tools/tpch-raw-oo/14.R @@ -1,27 +1,29 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"___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" + r"[CREATE MACRO "___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]" ) ) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) df1 <- lineitem diff --git a/tools/tpch-raw-oo/15.R b/tools/tpch-raw-oo/15.R index 558be006..6d16806b 100644 --- a/tools/tpch-raw-oo/15.R +++ b/tools/tpch-raw-oo/15.R @@ -1,11 +1,13 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/16.R b/tools/tpch-raw-oo/16.R index 0254089f..ff12f778 100644 --- a/tools/tpch-raw-oo/16.R +++ b/tools/tpch-raw-oo/16.R @@ -1,20 +1,25 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"!=\"(x, y) AS x <> y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"!\"(x) AS (NOT x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "!="(x, y) AS "r_base::!="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "!"(x) AS (NOT x)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n_distinct\"(x) AS (COUNT(DISTINCT x))")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible( + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') +) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n_distinct"(x) AS (COUNT(DISTINCT x))')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- part rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( @@ -124,7 +129,7 @@ rel3 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(49, experimental = experimental) @@ -135,7 +140,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(14, experimental = experimental) @@ -148,7 +153,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(23, experimental = experimental) @@ -161,7 +166,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(45, experimental = experimental) @@ -174,7 +179,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(19, experimental = experimental) @@ -187,7 +192,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(3, experimental = experimental) @@ -200,7 +205,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(36, experimental = experimental) @@ -213,7 +218,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(9, experimental = experimental) diff --git a/tools/tpch-raw-oo/17.R b/tools/tpch-raw-oo/17.R index d35d7d4d..2d0fee5e 100644 --- a/tools/tpch-raw-oo/17.R +++ b/tools/tpch-raw-oo/17.R @@ -1,14 +1,16 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"___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" + r"[CREATE MACRO "___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]" ) ) df1 <- part diff --git a/tools/tpch-raw-oo/18.R b/tools/tpch-raw-oo/18.R index 4191751c..6ffd2cf0 100644 --- a/tools/tpch-raw-oo/18.R +++ b/tools/tpch-raw-oo/18.R @@ -1,11 +1,13 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/19.R b/tools/tpch-raw-oo/19.R index 6645b42b..df12de2f 100644 --- a/tools/tpch-raw-oo/19.R +++ b/tools/tpch-raw-oo/19.R @@ -1,13 +1,18 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible( + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') +) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_set_alias(rel1, "lhs") @@ -483,7 +488,7 @@ rel11 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM CASE", experimental = experimental) @@ -494,7 +499,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM BOX", experimental = experimental) @@ -507,7 +512,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM PACK", experimental = experimental) @@ -520,7 +525,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM PKG", experimental = experimental) @@ -600,7 +605,7 @@ rel11 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -611,7 +616,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) @@ -680,7 +685,7 @@ rel11 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED BAG", experimental = experimental) @@ -691,7 +696,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED BOX", experimental = experimental) @@ -704,7 +709,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED PKG", experimental = experimental) @@ -717,7 +722,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED PACK", experimental = experimental) @@ -797,7 +802,7 @@ rel11 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -808,7 +813,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) @@ -879,7 +884,7 @@ rel11 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG CASE", experimental = experimental) @@ -890,7 +895,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG BOX", experimental = experimental) @@ -903,7 +908,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG PACK", experimental = experimental) @@ -916,7 +921,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG PKG", experimental = experimental) @@ -996,7 +1001,7 @@ rel11 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -1007,7 +1012,7 @@ rel11 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) diff --git a/tools/tpch-raw-oo/20.R b/tools/tpch-raw-oo/20.R index 3aafb1ec..6d2981a7 100644 --- a/tools/tpch-raw-oo/20.R +++ b/tools/tpch-raw-oo/20.R @@ -1,18 +1,20 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) df1 <- nation rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw-oo/21.R b/tools/tpch-raw-oo/21.R index 7718b284..cad00d33 100644 --- a/tools/tpch-raw-oo/21.R +++ b/tools/tpch-raw-oo/21.R @@ -1,20 +1,22 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"any\"(x) AS (bool_or(x))")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "any"(x) AS (bool_or(x))')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_aggregate( diff --git a/tools/tpch-raw-oo/22.R b/tools/tpch-raw-oo/22.R index 579c562e..a89491bc 100644 --- a/tools/tpch-raw-oo/22.R +++ b/tools/tpch-raw-oo/22.R @@ -1,13 +1,18 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible( + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') +) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- customer rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( @@ -85,7 +90,7 @@ rel3 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("13", experimental = experimental) @@ -111,7 +116,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("31", experimental = experimental) @@ -139,7 +144,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("23", experimental = experimental) @@ -167,7 +172,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("29", experimental = experimental) @@ -195,7 +200,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("30", experimental = experimental) @@ -223,7 +228,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("18", experimental = experimental) @@ -251,7 +256,7 @@ rel3 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("17", experimental = experimental) @@ -805,7 +810,7 @@ rel21 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("13", experimental = experimental) @@ -816,7 +821,7 @@ rel21 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("31", experimental = experimental) @@ -829,7 +834,7 @@ rel21 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("23", experimental = experimental) @@ -842,7 +847,7 @@ rel21 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("29", experimental = experimental) @@ -855,7 +860,7 @@ rel21 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("30", experimental = experimental) @@ -868,7 +873,7 @@ rel21 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("18", experimental = experimental) @@ -881,7 +886,7 @@ rel21 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("17", experimental = experimental) diff --git a/tools/tpch-raw/01.R b/tools/tpch-raw/01.R index e21a2e95..b1cfdf2b 100644 --- a/tools/tpch-raw/01.R +++ b/tools/tpch-raw/01.R @@ -1,9 +1,11 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw/02.R b/tools/tpch-raw/02.R index 8bf8b5bf..c12ccc50 100644 --- a/tools/tpch-raw/02.R +++ b/tools/tpch-raw/02.R @@ -1,19 +1,21 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( - DBI::dbExecute(con, "CREATE MACRO \"___eq_na_matches_na\"(x, y) AS (x IS NOT DISTINCT FROM y)") + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- partsupp rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw/03.R b/tools/tpch-raw/03.R index ee976ac0..37cd0898 100644 --- a/tools/tpch-raw/03.R +++ b/tools/tpch-raw/03.R @@ -1,15 +1,17 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) invisible( - DBI::dbExecute(con, "CREATE MACRO \"___eq_na_matches_na\"(x, y) AS (x IS NOT DISTINCT FROM y)") + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- orders rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw/04.R b/tools/tpch-raw/04.R index bd9d5d3e..03c33e72 100644 --- a/tools/tpch-raw/04.R +++ b/tools/tpch-raw/04.R @@ -1,12 +1,14 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw/05.R b/tools/tpch-raw/05.R index 90e2ec05..aa67a07e 100644 --- a/tools/tpch-raw/05.R +++ b/tools/tpch-raw/05.R @@ -1,12 +1,14 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- nation rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw/06.R b/tools/tpch-raw/06.R index 9c8e60bb..70812b48 100644 --- a/tools/tpch-raw/06.R +++ b/tools/tpch-raw/06.R @@ -1,10 +1,12 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw/07.R b/tools/tpch-raw/07.R index 28dd8828..c003c005 100644 --- a/tools/tpch-raw/07.R +++ b/tools/tpch-raw/07.R @@ -1,14 +1,16 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"as.integer\"(x) AS CAST(x AS int32)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) df1 <- supplier rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw/08.R b/tools/tpch-raw/08.R index c0011848..4eb33cec 100644 --- a/tools/tpch-raw/08.R +++ b/tools/tpch-raw/08.R @@ -1,22 +1,24 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"as.integer\"(x) AS CAST(x AS int32)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"___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" + r"[CREATE MACRO "___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]" ) ) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) df1 <- nation diff --git a/tools/tpch-raw/09.R b/tools/tpch-raw/09.R index 0a972737..00ab9643 100644 --- a/tools/tpch-raw/09.R +++ b/tools/tpch-raw/09.R @@ -1,17 +1,19 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"as.integer\"(x) AS CAST(x AS int32)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "as.integer"(x) AS CAST(x AS int32)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- part rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw/10.R b/tools/tpch-raw/10.R index 8c642be0..adf58c05 100644 --- a/tools/tpch-raw/10.R +++ b/tools/tpch-raw/10.R @@ -1,12 +1,14 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_project( diff --git a/tools/tpch-raw/11.R b/tools/tpch-raw/11.R index 79c4071c..d84c96cf 100644 --- a/tools/tpch-raw/11.R +++ b/tools/tpch-raw/11.R @@ -1,11 +1,13 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- nation rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_filter( diff --git a/tools/tpch-raw/12.R b/tools/tpch-raw/12.R index ba497521..eef253a5 100644 --- a/tools/tpch-raw/12.R +++ b/tools/tpch-raw/12.R @@ -1,20 +1,25 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible( + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') +) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"!=\"(x, y) AS x <> y")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "!="(x, y) AS "r_base::!="(x, y)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_filter( @@ -24,7 +29,7 @@ rel2 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MAIL", experimental = experimental) @@ -35,7 +40,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SHIP", experimental = experimental) diff --git a/tools/tpch-raw/13.R b/tools/tpch-raw/13.R index 2c45f37b..13e46ef6 100644 --- a/tools/tpch-raw/13.R +++ b/tools/tpch-raw/13.R @@ -1,25 +1,27 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"!\"(x) AS (NOT x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "!"(x) AS (NOT x)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"is.na\"(x) AS (x IS NULL)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "is.na"(x) AS (x IS NULL OR isnan(x))')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- orders rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_filter( diff --git a/tools/tpch-raw/14.R b/tools/tpch-raw/14.R index c5cf669b..5f9d2d6a 100644 --- a/tools/tpch-raw/14.R +++ b/tools/tpch-raw/14.R @@ -1,27 +1,29 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"___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" + r"[CREATE MACRO "___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]" ) ) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) df1 <- lineitem diff --git a/tools/tpch-raw/15.R b/tools/tpch-raw/15.R index 7acbf496..d2e3fe32 100644 --- a/tools/tpch-raw/15.R +++ b/tools/tpch-raw/15.R @@ -1,11 +1,13 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_filter( diff --git a/tools/tpch-raw/16.R b/tools/tpch-raw/16.R index 084fdb96..ffd57fda 100644 --- a/tools/tpch-raw/16.R +++ b/tools/tpch-raw/16.R @@ -1,20 +1,25 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"!=\"(x, y) AS x <> y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"!\"(x) AS (NOT x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "!="(x, y) AS "r_base::!="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "!"(x) AS (NOT x)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n_distinct\"(x) AS (COUNT(DISTINCT x))")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible( + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') +) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n_distinct"(x) AS (COUNT(DISTINCT x))')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- part rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_filter( @@ -69,7 +74,7 @@ rel2 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(49, experimental = experimental) @@ -80,7 +85,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(14, experimental = experimental) @@ -93,7 +98,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(23, experimental = experimental) @@ -106,7 +111,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(45, experimental = experimental) @@ -119,7 +124,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(19, experimental = experimental) @@ -132,7 +137,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(3, experimental = experimental) @@ -145,7 +150,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(36, experimental = experimental) @@ -158,7 +163,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant(9, experimental = experimental) diff --git a/tools/tpch-raw/17.R b/tools/tpch-raw/17.R index de27f1cb..921f8d6c 100644 --- a/tools/tpch-raw/17.R +++ b/tools/tpch-raw/17.R @@ -1,14 +1,16 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"___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" + r"[CREATE MACRO "___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]" ) ) df1 <- part diff --git a/tools/tpch-raw/18.R b/tools/tpch-raw/18.R index 3fbdc772..e589c5af 100644 --- a/tools/tpch-raw/18.R +++ b/tools/tpch-raw/18.R @@ -1,11 +1,13 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_aggregate( diff --git a/tools/tpch-raw/19.R b/tools/tpch-raw/19.R index a0a16224..4820f44b 100644 --- a/tools/tpch-raw/19.R +++ b/tools/tpch-raw/19.R @@ -1,13 +1,18 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<=\"(x, y) AS x <= y")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible( + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') +) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<="(x, y) AS "r_base::<="(x, y)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_set_alias(rel1, "lhs") @@ -204,7 +209,7 @@ rel7 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM CASE", experimental = experimental) @@ -215,7 +220,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM BOX", experimental = experimental) @@ -228,7 +233,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM PACK", experimental = experimental) @@ -241,7 +246,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("SM PKG", experimental = experimental) @@ -321,7 +326,7 @@ rel7 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -332,7 +337,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) @@ -401,7 +406,7 @@ rel7 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED BAG", experimental = experimental) @@ -412,7 +417,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED BOX", experimental = experimental) @@ -425,7 +430,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED PKG", experimental = experimental) @@ -438,7 +443,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("MED PACK", experimental = experimental) @@ -518,7 +523,7 @@ rel7 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -529,7 +534,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) @@ -600,7 +605,7 @@ rel7 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG CASE", experimental = experimental) @@ -611,7 +616,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG BOX", experimental = experimental) @@ -624,7 +629,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG PACK", experimental = experimental) @@ -637,7 +642,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("LG PKG", experimental = experimental) @@ -717,7 +722,7 @@ rel7 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR", experimental = experimental) @@ -728,7 +733,7 @@ rel7 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("AIR REG", experimental = experimental) diff --git a/tools/tpch-raw/20.R b/tools/tpch-raw/20.R index 6537de62..4b5e4731 100644 --- a/tools/tpch-raw/20.R +++ b/tools/tpch-raw/20.R @@ -1,18 +1,20 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"grepl\"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)" + 'CREATE MACRO "grepl"(pattern, x) AS (CASE WHEN x IS NULL THEN FALSE ELSE regexp_matches(x, pattern) END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \">=\"(x, y) AS x >= y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"<\"(x, y) AS x < y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">="(x, y) AS "r_base::>="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "<"(x, y) AS "r_base::<"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) df1 <- nation rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_filter( diff --git a/tools/tpch-raw/21.R b/tools/tpch-raw/21.R index 744cf1c4..07883197 100644 --- a/tools/tpch-raw/21.R +++ b/tools/tpch-raw/21.R @@ -1,20 +1,22 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"any\"(x) AS (bool_or(x))")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "any"(x) AS (bool_or(x))')) invisible( DBI::dbExecute( con, - "CREATE MACRO \"if_else\"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)" + 'CREATE MACRO "if_else"(test, yes, no) AS (CASE WHEN test THEN yes ELSE no END)' ) ) -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"desc\"(x) AS (-x)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "desc"(x) AS (-x)')) df1 <- lineitem rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_aggregate( diff --git a/tools/tpch-raw/22.R b/tools/tpch-raw/22.R index e59ffa45..5a8b8bb3 100644 --- a/tools/tpch-raw/22.R +++ b/tools/tpch-raw/22.R @@ -1,13 +1,18 @@ qloadm("tools/tpch/001.qs") duckdb <- asNamespace("duckdb") -con <- DBI::dbConnect(duckdb::duckdb()) +drv <- duckdb::duckdb() +con <- DBI::dbConnect(drv) experimental <- FALSE -invisible(DBI::dbExecute(con, "CREATE MACRO \"&\"(x, y) AS (x AND y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"|\"(x, y) AS (x OR y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"==\"(x, y) AS x = y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \">\"(x, y) AS x > y")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"___coalesce\"(x, y) AS COALESCE(x, y)")) -invisible(DBI::dbExecute(con, "CREATE MACRO \"n\"() AS CAST(COUNT(*) AS int32)")) +invisible(DBI::dbExecute(con, 'CREATE MACRO "&"(x, y) AS (x AND y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "|"(x, y) AS (x OR y)')) +invisible( + DBI::dbExecute(con, 'CREATE MACRO "___eq_na_matches_na"(x, y) AS (x IS NOT DISTINCT FROM y)') +) +invisible(duckdb$rapi_load_rfuns(drv@database_ref)) +invisible(DBI::dbExecute(con, 'CREATE MACRO ">"(x, y) AS "r_base::>"(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "=="(x, y) AS "r_base::=="(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "___coalesce"(x, y) AS COALESCE(x, y)')) +invisible(DBI::dbExecute(con, 'CREATE MACRO "n"() AS CAST(COUNT(*) AS int32)')) df1 <- customer rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental) rel2 <- duckdb$rel_filter( @@ -35,7 +40,7 @@ rel2 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("13", experimental = experimental) @@ -61,7 +66,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("31", experimental = experimental) @@ -89,7 +94,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("23", experimental = experimental) @@ -117,7 +122,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("29", experimental = experimental) @@ -145,7 +150,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("30", experimental = experimental) @@ -173,7 +178,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("18", experimental = experimental) @@ -201,7 +206,7 @@ rel2 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("17", experimental = experimental) @@ -560,7 +565,7 @@ rel14 <- duckdb$rel_filter( "|", list( duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("13", experimental = experimental) @@ -571,7 +576,7 @@ rel14 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("31", experimental = experimental) @@ -584,7 +589,7 @@ rel14 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("23", experimental = experimental) @@ -597,7 +602,7 @@ rel14 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("29", experimental = experimental) @@ -610,7 +615,7 @@ rel14 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("30", experimental = experimental) @@ -623,7 +628,7 @@ rel14 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("18", experimental = experimental) @@ -636,7 +641,7 @@ rel14 <- duckdb$rel_filter( ) ), duckdb$expr_function( - "==", + "___eq_na_matches_na", list( if ("experimental" %in% names(formals(duckdb$expr_constant))) { duckdb$expr_constant("17", experimental = experimental)