Check duplicate names in sql_translator()

tidyverse · Oct 6, 2023 · 55cf038 · 55cf038
1 parent cc8ecdb
commit 55cf038
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/translate-sql-helpers.R b/R/translate-sql-helpers.R
@@ -124,6 +124,13 @@ sql_translator <- function(...,
   funs <- c(list2(...), .funs)
   if (length(funs) == 0) return(.parent)
 
+  if (anyDuplicated(names(funs))) {
+    cli_abort(c(
+      "Duplicate names in {.fun sql_translator}",
+      "*" = unique(names(funs)[duplicated(names(funs))])
+    ))
+  }
+
   list2env(funs, copy_env(.parent))
 }