Convert some simple anonymous functions to shorthand

Author: teunbrand

R/aes.R

@@ -88,7 +88,7 @@ NULL
 #'
 #' # Note that users of your wrapper can use their own functions in the
 #' # quoted expressions and all will resolve as it should!
-#' cut3 <- function(x) cut_number(x, 3)
+#' cut3 <- \(x) cut_number(x, 3)
 #' scatter_by(mtcars, cut3(disp), drat)
 aes <- function(x, y, ...) {
   xs <- arg_enquos("x")

R/annotation-logticks.R

@@ -43,11 +43,11 @@
 #' a <- ggplot(msleep, aes(bodywt, brainwt)) +
 #'  geom_point(na.rm = TRUE) +
 #'  scale_x_log10(
-#'    breaks = scales::trans_breaks("log10", function(x) 10^x),
+#'    breaks = scales::trans_breaks("log10", \(x) 10^x),
 #'    labels = scales::trans_format("log10", scales::math_format(10^.x))
 #'  ) +
 #'  scale_y_log10(
-#'    breaks = scales::trans_breaks("log10", function(x) 10^x),
+#'    breaks = scales::trans_breaks("log10", \(x) 10^x),
 #'    labels = scales::trans_format("log10", scales::math_format(10^.x))
 #'  ) +
 #'  theme_bw()

R/geom-function.R

@@ -42,11 +42,9 @@
 #'   geom_function(aes(colour = "t, df = 1"), fun = dt, args = list(df = 1))
 #'
 #' # Using a custom anonymous function
-#' base + geom_function(fun = function(x) 0.5 * exp(-abs(x)))
+#' base + geom_function(fun = \(x) 0.5 * exp(-abs(x)))
 #' # or using lambda syntax:
 #' # base + geom_function(fun = ~ 0.5 * exp(-abs(.x)))
-#' # or in R4.1.0 and above:
-#' # base + geom_function(fun = \(x) 0.5 * exp(-abs(x)))
 #' # or using a custom named function:
 #' # f <- function(x) 0.5 * exp(-abs(x))
 #' # base + geom_function(fun = f)

R/geom-histogram.R

@@ -132,7 +132,7 @@
 #' # different ranges because the function will be called once per facet
 #' ggplot(economics_long, aes(value)) +
 #'   facet_wrap(~variable, scales = 'free_x') +
-#'   geom_histogram(binwidth = function(x) 2 * IQR(x) / (length(x)^(1/3)))
+#'   geom_histogram(binwidth = \(x) 2 * IQR(x) / (length(x)^(1/3)))
 geom_histogram <- function(mapping = NULL, data = NULL,
                            stat = "bin", position = "stack",
                            ...,

R/labeller.R

@@ -85,7 +85,7 @@
 #' p + facet_grid(. ~ cyl2, labeller = label_parsed)
 #'
 #' # Include optional argument in label function
-#' p + facet_grid(. ~ cyl, labeller = function(x) label_both(x, sep = "="))
+#' p + facet_grid(. ~ cyl, labeller = \(x) label_both(x, sep = "="))
 #' }
 #' @name labellers
 NULL

R/stat-summary-2d.R

@@ -35,7 +35,7 @@
 #' d + stat_summary_2d()
 #'
 #' # Specifying function
-#' d + stat_summary_2d(fun = function(x) sum(x^2))
+#' d + stat_summary_2d(fun = \(x) sum(x^2))
 #' d + stat_summary_2d(fun = ~ sum(.x^2))
 #' d + stat_summary_2d(fun = var)
 #' d + stat_summary_2d(fun = "quantile", fun.args = list(probs = 0.1))