Upkeep spring 2025 (#6440)

* update last upkeep field

* bump required R version

* replace `%>%` with `|>`

* Convert some simple anonymous functions to shorthand

* add ROR

* bump licence year

* tidy description

* tidy GHA

* document

* exempt `cut3()` from short function form

* redocument

Author: teunbrand

.github/workflows/test-coverage.yaml

@@ -35,14 +35,16 @@ jobs:
             clean = FALSE,
             install_path = file.path(normalizePath(Sys.getenv("RUNNER_TEMP"), winslash = "/"), "package")
           )
+          print(cov)
           covr::to_cobertura(cov)
         shell: Rscript {0}
 
-      - uses: codecov/codecov-action@v4
+      - uses: codecov/codecov-action@v5
         with:
-          fail_ci_if_error: ${{ github.event_name != 'pull_request' && true || false }}
-          file: ./cobertura.xml
-          plugin: noop
+          # Fail if error if not on PR, or if on PR and token is given
+          fail_ci_if_error: ${{ github.event_name != 'pull_request' || secrets.CODECOV_TOKEN }}
+          files: ./cobertura.xml
+          plugins: noop
           disable_search: true
           token: ${{ secrets.CODECOV_TOKEN }}
 

DESCRIPTION

@@ -20,7 +20,8 @@ Authors@R: c(
            comment = c(ORCID = "0000-0002-9415-4582")),
     person("Teun", "van den Brand", role = "aut",
            comment = c(ORCID = "0000-0002-9335-7468")),
-    person("Posit, PBC", role = c("cph", "fnd"))
+    person("Posit, PBC", role = c("cph", "fnd"),
+           comment = c(ROR = "03wc8by49"))
   )
 Description: A system for 'declaratively' creating graphics, based on "The
     Grammar of Graphics". You provide the data, tell 'ggplot2' how to map
@@ -30,7 +31,7 @@ License: MIT + file LICENSE
 URL: https://ggplot2.tidyverse.org, https://github.com/tidyverse/ggplot2
 BugReports: https://github.com/tidyverse/ggplot2/issues
 Depends:
-    R (>= 4.0)
+    R (>= 4.1)
 Imports:
     cli,
     grDevices,
@@ -77,7 +78,7 @@ VignetteBuilder:
     knitr
 Config/Needs/website: ggtext, tidyr, forcats, tidyverse/tidytemplate
 Config/testthat/edition: 3
-Config/usethis/last-upkeep: 2024-10-24
+Config/usethis/last-upkeep: 2025-04-23
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)

LICENSE

@@ -1,2 +1,2 @@
-YEAR: 2024
+YEAR: 2025
 COPYRIGHT HOLDER: ggplot2 core developer team

LICENSE.md

@@ -1,6 +1,6 @@
 # MIT License
 
-Copyright (c) 2024 ggplot2 core developer team
+Copyright (c) 2025 ggplot2 core developer team
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

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

@@ -65,11 +65,9 @@ GeomFunction <- ggproto("GeomFunction", GeomPath,
 #'   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 <- make_constructor(
   GeomBar, stat = "bin", position = "stack",
   # Passed to bin stat:

R/geom-map.R

@@ -55,7 +55,7 @@ NULL
 #'
 #'   crimes <- data.frame(state = tolower(rownames(USArrests)), USArrests)
 #'
-#'   # Equivalent to crimes %>% tidyr::pivot_longer(Murder:Rape)
+#'   # Equivalent to crimes |> tidyr::pivot_longer(Murder:Rape)
 #'   vars <- lapply(names(crimes)[-1], function(j) {
 #'     data.frame(state = crimes$state, variable = j, value = crimes[[j]])
 #'   })

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

@@ -99,7 +99,7 @@ StatSummary2d <- ggproto(
 #' 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))