Re-add win_rank_tdata()

NAMESPACE

@@ -580,6 +580,7 @@ export(win_current_group)
 export(win_current_order)
 export(win_over)
 export(win_rank)
+export(win_rank_tdata)
 export(win_recycled)
 export(window_frame)
 export(window_order)

R/backend-teradata.R

@@ -217,3 +217,26 @@ sql_table_analyze.Teradata <- function(con, table, ...) {
 }
 
 utils::globalVariables(c("ATAN2", "SUBSTR", "DECIMAL", "WEEKNUMBER_OF_YEAR", "SUM"))
+
+#' @export
+#' @rdname win_over
+win_rank_tdata <- function(f) {
+  lifecycle::deprecate_soft(
+    "2.4.0",
+    what = "win_rank_tdata()",
+    with = "win_rank()"
+  )
+
+  force(f)
+  function(order_by = NULL) {
+    order_by <- order_by %||% win_current_group()
+    if (is_empty(order_by)) order_by <- sql("(SELECT NULL)")
+
+    win_over(
+      sql(glue("{f}()")),
+      partition = win_current_group(),
+      order = order_by,
+      frame = win_current_frame()
+    )
+  }
+}