make as.transform backward compatible

r-lib · Nov 6, 2023 · a73a3d4 · a73a3d4
1 parent a590298
commit a73a3d4
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/R/transform.R b/R/transform.R
@@ -98,11 +98,18 @@ lines.transform <- function(x, ..., xlim) {
 #' @rdname trans_new
 #' @export
 as.transform <- function(x, arg = deparse(substitute(x))) {
-  if (is.trans(x)) {
+  if (is.tranform(x)) {
     x
   } else if (is.character(x) && length(x) >= 1) {
     if (length(x) == 1) {
-      f <- paste0(x, "_trans")
+      f <- paste0("transform_", x)
+      # For backward compatibility
+      if (!exists(f, mode = "function")) {
+        f2 <- paste0(x, "_trans")
+        if (exists(f2, mode = "function")) {
+          f <- f2
+        }
+      }
       match.fun(f)()
     } else {
       transform_compose(!!!x)