rename attribute for original breaks

r-lib · Oct 22, 2024 · 5287a43 · 5287a43
1 parent 7d9cb6f
commit 5287a43
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/label-compose.R b/R/label-compose.R
@@ -39,7 +39,7 @@ compose_label <- function(..., call = caller_env()) {
     orig <- x
     for (labeller in label_list) {
       x <- labeller(x)
-      attr(x, "orig") <- orig
+      attr(x, "orig_breaks") <- orig
     }
     x[is.na(orig)] <- NA
     names(x) <- names(x) %||% names(orig)