replace is.formula() with rlang::is_formula()

Author: teunbrand

R/aes.R

@@ -302,7 +302,7 @@ aes_ <- function(x, y, ...) {
   caller_env <- parent.frame()
 
   as_quosure_aes <- function(x) {
-    if (is.formula(x) && length(x) == 2) {
+    if (is_formula(x) && length(x) == 2) {
       as_quosure(x)
     } else if (is.null(x) || is.call(x) || is.name(x) || is.atomic(x)) {
       new_aesthetic(x, caller_env)

R/axis-secondary.R

@@ -135,7 +135,7 @@ set_sec_axis <- function(sec.axis, scale) {
         cli::cli_abort("Discrete secondary axes must have the {.fn identity} transformation.")
       }
     }
-    if (is.formula(sec.axis)) sec.axis <- sec_axis(sec.axis)
+    if (is_formula(sec.axis)) sec.axis <- sec_axis(sec.axis)
     if (!is.sec_axis(sec.axis)) {
       cli::cli_abort("Secondary axes must be specified using {.fn sec_axis}.")
     }

R/labeller.R

@@ -296,7 +296,7 @@ as_labeller <- function(x, default = label_value, multi_line = TRUE) {
       x(labels)
     } else if (is.function(x)) {
       default(lapply(labels, x))
-    } else if (is.formula(x)) {
+    } else if (is_formula(x)) {
       default(lapply(labels, as_function(x)))
     } else if (is.character(x)) {
       default(lapply(labels, function(label) x[label]))

R/quick-plot.R

@@ -139,7 +139,7 @@ qplot <- function(x, y, ..., data, facets = NULL, margins = FALSE,
 
   if (is.null(facets)) {
     p <- p + facet_null()
-  } else if (is.formula(facets) && length(facets) == 2) {
+  } else if (is_formula(facets) && length(facets) == 2) {
     p <- p + facet_wrap(facets)
   } else {
     p <- p + facet_grid(rows = deparse(facets), margins = margins)

R/stat-function.R

@@ -70,7 +70,7 @@ StatFunction <- ggproto("StatFunction", Stat,
       }
     }
 
-    if (is.formula(fun)) fun <- as_function(fun)
+    if (is_formula(fun)) fun <- as_function(fun)
 
     y_out <- inject(fun(x_trans, !!!args))
     if (!is.null(scales$y) && !scales$y$is_discrete()) {

R/utilities.R

@@ -321,8 +321,6 @@ compact <- function(x) {
   x[!null]
 }
 
-is.formula <- function(x) inherits(x, "formula")
-
 dispatch_args <- function(f, ...) {
   args <- list(...)
   formals <- formals(f)