Signal superseded once per session in transpose #1119 (#1138)

tidyverse · Aug 15, 2024 · 49bb36b · 49bb36b
1 parent 73a291c
commit 49bb36b
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/superseded-transpose.R b/R/superseded-transpose.R
@@ -63,6 +63,10 @@
 #' ll |> list_transpose(template = nms, default = NA)
 transpose <- function(.l, .names = NULL) {
   # 1.0.0
-  lifecycle::signal_stage("superseded", "transpose()", "list_transpose()")
+  if (!isTRUE(the$transpose_signalled)) {
+    lifecycle::signal_stage("superseded", "transpose()", "list_transpose()")
+    the$transpose_signalled <- TRUE
+  }
   .Call(transpose_impl, .l, .names)
 }
+