fix: check_duplicate_names() (#317)

* Use noble

* load_all()

* Rename

* All of them

* Reduce number of runs

* Reverse

* fix: `check_duplicate_names()`

Author: krlmlr

R/relational-duckdb.R

@@ -195,10 +195,6 @@ vec_ptype_safe <- function(x) {
 
 #' @export
 rel_to_df.duckdb_relation <- function(rel, ...) {
-  if (anyDuplicated(tolower(names(rel)))) {
-    cli::cli_abort("Column names are case-insensitive in duckdb, fallback required.")
-  }
-
   duckdb$rel_to_altrep(rel)
 }
 
@@ -226,6 +222,8 @@ rel_project.duckdb_relation <- function(rel, exprs, ...) {
     list(!!!to_duckdb_exprs_meta(exprs))
   )))
 
+  check_duplicate_names(out)
+
   out
 }
 
@@ -246,6 +244,8 @@ rel_aggregate.duckdb_relation <- function(rel, groups, aggregates, ...) {
     aggregates = list(!!!to_duckdb_exprs_meta(aggregates))
   )))
 
+  check_duplicate_names(out)
+
   out
 }
 
@@ -292,6 +292,8 @@ rel_join.duckdb_relation <- function(left, right, conds, join, join_ref_type, ..
     )))
   }
 
+  check_duplicate_names(out)
+
   out
 }
 
@@ -520,3 +522,10 @@ to_duckdb_expr_meta <- function(x) {
     cli::cli_abort("Unknown expr class: {.cls {class(x)}}")
   )
 }
+
+check_duplicate_names <- function(rel) {
+  # https://github.com/duckdb/duckdb/discussions/14682
+  if (anyDuplicated(tolower(duckdb$rel_names(rel)))) {
+    cli::cli_abort("Column names are case-insensitive in duckdb, fallback required.")
+  }
+}