chore: Sync

Author: krlmlr

patch/mutate.patch

@@ -29,7 +29,7 @@ diff --git b/R/mutate.R a/R/mutate.R
 +
 +      names_used <- character()
 +      names_new <- character()
-+      current_data <- rel_to_df(rel)
++      current_data <- rel_to_df(rel, prudence = "frugal")
 +
 +      # FIXME: use fewer projections
 +      for (i in seq_along(dots)) {
@@ -77,7 +77,7 @@ diff --git b/R/mutate.R a/R/mutate.R
 +        }
 +
 +        rel <- rel_project(rel, unname(exprs))
-+        current_data <- rel_to_df(rel)
++        current_data <- rel_to_df(rel, prudence = "frugal")
 +      }
 +
 +      if (length(by_names) > 0) {

patch/summarise.patch

@@ -58,9 +58,9 @@ diff --git b/R/summarise.R a/R/summarise.R
 +        out_rel <- oo_restore(out_rel, "___row_number")
 +      }
 +
-+      out <- rel_to_df(out_rel)
++      out <- rel_to_df(out_rel, prudence = get_prudence_duckplyr_df(.data))
 +      # https://github.com/tidyverse/dplyr/pull/6988
-+      class(out) <- intersect(c("duckplyr_df", "tbl_df", "tbl", "data.frame"), class(.data))
++      class(out) <- intersect(c("prudent_duckplyr_df", "duckplyr_df", "tbl_df", "tbl", "data.frame"), class(.data))
 +
        return(out)
      }

tests/testthat/test-rel_api.R

@@ -16682,13 +16682,17 @@ test_that("relational symdiff() order-preserving", {
       }
     )
   )
-  df3 <- data.frame(a = 5L, b = 2)
+  df3 <- data.frame(a = 1L, b = 2)
 
   "union_all"
   rel9 <- duckdb$rel_from_df(con, df3, experimental = experimental)
+  df4 <- data.frame(a = 5L, b = 2)
+
   "union_all"
-  rel10 <- duckdb$rel_project(
-    rel8,
+  rel10 <- duckdb$rel_from_df(con, df4, experimental = experimental)
+  "union_all"
+  rel11 <- duckdb$rel_project(
+    rel9,
     list(
       {
         tmp_expr <- duckdb$expr_reference("a")
@@ -16717,8 +16721,8 @@ test_that("relational symdiff() order-preserving", {
     )
   )
   "union_all"
-  rel11 <- duckdb$rel_project(
-    rel9,
+  rel12 <- duckdb$rel_project(
+    rel10,
     list(
       {
         tmp_expr <- duckdb$expr_reference("a")
@@ -16747,15 +16751,15 @@ test_that("relational symdiff() order-preserving", {
     )
   )
   "union_all"
-  rel12 <- duckdb$rel_union_all(rel10, rel11)
+  rel13 <- duckdb$rel_union_all(rel11, rel12)
   "union_all"
-  rel13 <- duckdb$rel_order(
-    rel12,
+  rel14 <- duckdb$rel_order(
+    rel13,
     list(duckdb$expr_reference("___row_number_x"), duckdb$expr_reference("___row_number_y"))
   )
   "union_all"
-  rel14 <- duckdb$rel_project(
-    rel13,
+  rel15 <- duckdb$rel_project(
+    rel14,
     list(
       {
         tmp_expr <- duckdb$expr_reference("a")
@@ -16770,8 +16774,8 @@ test_that("relational symdiff() order-preserving", {
     )
   )
   "distinct"
-  rel15 <- duckdb$rel_project(
-    rel14,
+  rel16 <- duckdb$rel_project(
+    rel15,
     list(
       {
         tmp_expr <- duckdb$expr_reference("a")
@@ -16791,8 +16795,8 @@ test_that("relational symdiff() order-preserving", {
     )
   )
   "distinct"
-  rel16 <- duckdb$rel_project(
-    rel15,
+  rel17 <- duckdb$rel_project(
+    rel16,
     list(
       {
         tmp_expr <- duckdb$expr_reference("a")
@@ -16830,8 +16834,8 @@ test_that("relational symdiff() order-preserving", {
     )
   )
   "distinct"
-  rel17 <- duckdb$rel_filter(
-    rel16,
+  rel18 <- duckdb$rel_filter(
+    rel17,
     list(
       duckdb$expr_comparison(
         "==",
@@ -16847,10 +16851,10 @@ test_that("relational symdiff() order-preserving", {
     )
   )
   "distinct"
-  rel18 <- duckdb$rel_order(rel17, list(duckdb$expr_reference("___row_number")))
+  rel19 <- duckdb$rel_order(rel18, list(duckdb$expr_reference("___row_number")))
   "distinct"
-  rel19 <- duckdb$rel_project(
-    rel18,
+  rel20 <- duckdb$rel_project(
+    rel19,
     list(
       {
         tmp_expr <- duckdb$expr_reference("a")
@@ -16864,8 +16868,8 @@ test_that("relational symdiff() order-preserving", {
       }
     )
   )
-  rel19
-  out <- duckdb$rel_to_altrep(rel19)
+  rel20
+  out <- duckdb$rel_to_altrep(rel20)
   expect_identical(
     out,
     data.frame(a = c(1L, 5L), b = 2)

tools/05-duckdb-tests.R

@@ -1,5 +1,7 @@
 source("tools/00-funs.R", echo = TRUE)
 
+Sys.setenv("DUCKPLYR_META_ENABLE" = "TRUE")
+
 pkgload::load_all()
 
 first_line <- paste0(