allow writing to field

tidyverse · Jan 2, 2024 · c346b42 · c346b42
1 parent 5083064
commit c346b42
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/scale-.R b/R/scale-.R
@@ -1368,7 +1368,11 @@ is_active_binding <- function(self, name) {
   FALSE
 }
 
-deprecate_trans <- function(x = self) {
+deprecate_trans <- function(new = NULL, x = self) {
+  if (!is.null(new)) {
+    x$transformation <- new
+    return()
+  }
   deprecate_soft0("3.5.0", I("Scale$trans"), I("Scale$transformation"))
   x$transformation
 }