use type checkers in backend-teradata.R

tidyverse · Nov 5, 2024 · 662eafe · 662eafe
1 parent d174c23
commit 662eafe
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/backend-teradata.R b/R/backend-teradata.R
@@ -153,6 +153,7 @@ sql_translation.Teradata <- function(con) {
       row_number    = win_rank("ROW_NUMBER", empty_order = TRUE),
       weighted.mean = function(x, w, na.rm = T) {
                         # nocov start
+                        check_unsupported_arg(na.rm, allowed = TRUE)
                         win_over(
                           sql_expr(SUM((!!x * !!w))/SUM(!!w)),
                           win_current_group(),
@@ -191,6 +192,7 @@ sql_translation.Teradata <- function(con) {
                       },
       weighted.mean = function(x, w, na.rm = T) {
                         # nocov start
+                        check_unsupported_arg(na.rm, allowed = TRUE)
                         win_over(
                           sql_expr(SUM((!!x * !!w))/SUM(!!w)),
                           win_current_group(),