diff --git a/R/find_transformation.R b/R/find_transformation.R index aca1b0c4a..c28f37781 100644 --- a/R/find_transformation.R +++ b/R/find_transformation.R @@ -141,6 +141,8 @@ find_transformation.character <- function(x, ...) { } +# helper ----------------------------- + .is_division <- function(x) { any(grepl("(\\w)/(\\d)", x)) && !any(grepl("(.*)(\\^|\\*\\*)\\((.*)/(.*)\\)", x)) }