TESTS

Author: krlmlr

reldf.R

@@ -0,0 +1,29 @@
+pkgload::load_all()
+
+df1 <-
+  duckdb_tibble(a = 1, b = 2, c = 3) |>
+  select(a, b) |>
+  slice_head(n = 1)
+
+df2 <-
+  df1 |>
+  select(b)
+
+df2 |>
+  duckdb$rel_from_altrep_df()
+
+df2 |>
+  explain()
+
+df1$a
+
+df2 |>
+  duckdb$rel_from_altrep_df(wrap = TRUE)
+
+df2 |>
+  explain()
+
+df2$b
+
+df2 |>
+  duckdb$rel_from_altrep_df(wrap = TRUE)

reldf2.R

@@ -0,0 +1,20 @@
+pkgload::load_all()
+
+df <-
+  duckdb_tibble(a = 1, b = 2, c = 3) |>
+  select(a, b)
+
+names(df) <- c("c", "d")
+
+df2 <-
+  df |>
+  slice_head(n = 1) |>
+  select(c)
+
+df2 |>
+  duckdb$rel_from_altrep_df()
+
+df$c
+
+df2 |>
+  duckdb$rel_from_altrep_df()