All constructors have ... as argument.

Author: teunbrand

R/all-classes.R

@@ -207,6 +207,7 @@ class_derive <- S7::new_S3_class("derive")
 #' @param complete A boolean value stating whether a theme is complete.
 #' @param validate A boolean value stating whether a theme should still be
 #'   validated.
+#' @param ... Reserved for future expansion.
 #'
 #' @keywords internal
 #' @export
@@ -216,7 +217,7 @@ class_theme <- S7::new_class(
     complete = S7::class_logical,
     validate = S7::class_logical
   ),
-  constructor = function(elements, complete, validate) {
+  constructor = function(elements, complete, validate, ...) {
     S7::new_object(
       elements,
       complete = complete,
@@ -234,6 +235,7 @@ class_theme <- S7::new_class(
 #' class is to use the [`labs()`] function.
 #'
 #' @param labels A named list.
+#' @param ... Reserved for future expansion.
 #'
 #' @details
 #' All members of `labels` are expected to be named and unique.
@@ -243,7 +245,9 @@ class_theme <- S7::new_class(
 #' @export
 class_labels <- S7::new_class(
   "labels", parent = class_S3_gg,
-  constructor = function(labels) S7::new_object(labels),
+  constructor = function(labels, ...) {
+    S7::new_object(labels)
+  },
   validator = function(self) {
     if (!is.list(self)) {
       return("labels must be a list.")
@@ -270,12 +274,13 @@ class_labels <- S7::new_class(
 #'
 #' @param x A list of quosures and constants.
 #' @param env An environment for symbols that are not quosures or constants.
+#' @param ... Reserved for future expansion.
 #'
 #' @keywords internal
 #' @export
 class_mapping <- S7::new_class(
   "mapping", parent = class_S3_gg,
-  constructor = function(x, env = globalenv()) {
+  constructor = function(x, env = globalenv(), ...) {
     check_object(x, is.list, "a {.cls list}")
     x <- lapply(x, new_aesthetic, env = env)
     x <- S7::new_object(x)
@@ -306,6 +311,7 @@ class_mapping <- S7::new_class(
 #' @param meta A list for additional metadata. This will be deprecated in the
 #'   future.
 #' @param plot_env An environment.
+#' @param ... Reserved for future expansion.
 #'
 #' @keywords internal
 #' @export
@@ -325,12 +331,21 @@ class_ggplot <- S7::new_class(
     meta    = S7::class_list,
     plot_env = S7::class_environment
   ),
-  constructor = function(data = waiver(), layers = list(), scales = NULL,
-                         guides = NULL, mapping = aes(), theme = NULL,
-                         coordinates = coord_cartesian(default = TRUE),
-                         facet = facet_null(), layout = NULL,
-                         labels = labs(), meta = list(),
-                         plot_env = parent.frame()) {
+  constructor = function(
+    data = waiver(),
+    layers = list(),
+    scales = NULL,
+    guides = NULL,
+    mapping = aes(),
+    theme = NULL,
+    coordinates = coord_cartesian(default = TRUE),
+    facet = facet_null(),
+    layout = NULL,
+    labels = labs(),
+    meta = list(),
+    plot_env = parent.frame(),
+    ...
+  ) {
     S7::new_object(
       S7::S7_object(),
       data        = data,
@@ -362,6 +377,7 @@ class_ggplot <- S7::new_class(
 #' @param data A list of plain data frames; one for each layer.
 #' @param layout A Layout ggproto object.
 #' @param plot A completed ggplot class object.
+#' @param ... Reserved for future expansion.
 #'
 #' @keywords internal
 #' @export
@@ -372,15 +388,17 @@ class_ggplot_built <- S7::new_class(
     layout = class_layout,
     plot   = class_ggplot
   ),
-  constructor = function(data = NULL, layout = NULL, plot = NULL) {
+  constructor = function(data = NULL, layout = NULL, plot = NULL, ...) {
     if (is.null(data) || is.null(layout) || is.null(plot)) {
       cli::cli_abort(
         "The {.cls ggplot_built} class should be constructed by {.fn ggplot_build}."
       )
     }
     S7::new_object(
       S7::S7_object(),
-      data = data, layout = layout, plot = plot
+      data = data,
+      layout = layout,
+      plot = plot
     )
   }
 )

R/margins.R

@@ -7,7 +7,7 @@
 #' @export
 margin <- S7::new_class(
   "margin", parent = S7::new_S3_class(c("simpleUnit", "unit", "unit_v2")),
-  constructor = function(t = 0, r = 0, b = 0, l = 0, unit = "pt") {
+  constructor = function(t = 0, r = 0, b = 0, l = 0, unit = "pt", ...) {
     lens <- c(length(t), length(r), length(b), length(l))
     if (any(lens != 1)) {
       incorrect <- c("t", "r", "b", "l")[lens != 1]
@@ -41,7 +41,7 @@ margin_part <- function(t = NA, r = NA, b = NA, l = NA, unit = "pt") {
 #' @rdname element
 #' @export
 margin_auto <- function(t = 0, r = t, b = t, l = r, unit = "pt") {
-  margin(t = t, r = r, b = b, l = l, unit)
+  margin(t = t, r = r, b = b, l = l, unit = unit)
 }
 
 as_margin <- function(x, x_arg = caller_arg(x), call = caller_env()) {

R/theme-elements.R

@@ -33,6 +33,8 @@
 #'   a blank element among its parents will cause this element to be blank as
 #'   well. If `FALSE` any blank parent element will be ignored when
 #'   calculating final element state.
+#' @param ... Reserved for future expansion.
+#'
 #' @return An object of class `element`, `rel`, or `margin`.
 #' @details
 #' The `element_polygon()` and `element_point()` functions are not rendered
@@ -137,7 +139,7 @@ element_rect <- S7::new_class(
                                "inherit.blank")],
   constructor = function(fill = NULL, colour = NULL, linewidth = NULL,
                          linetype = NULL, color = NULL, linejoin = NULL,
-                         inherit.blank = FALSE, size = deprecated()){
+                         inherit.blank = FALSE, size = deprecated(), ...){
     if (lifecycle::is_present(size)) {
       deprecate_warn0("3.4.0", "element_rect(size)", "element_rect(linewidth)")
       linewidth <- size
@@ -171,7 +173,7 @@ element_line <- S7::new_class(
   constructor = function(colour = NULL, linewidth = NULL, linetype = NULL,
                          lineend = NULL, color = NULL, linejoin = NULL,
                          arrow = NULL, arrow.fill = NULL,
-                         inherit.blank = FALSE, size = deprecated()) {
+                         inherit.blank = FALSE, size = deprecated(), ...) {
     if (lifecycle::is_present(size)) {
       deprecate_warn0("3.4.0", "element_line(size)", "element_line(linewidth)")
       linewidth <- size
@@ -225,7 +227,7 @@ element_text <- S7::new_class(
   constructor = function(family = NULL, face = NULL, colour = NULL,
                          size = NULL, hjust = NULL, vjust = NULL, angle = NULL,
                          lineheight = NULL, color = NULL, margin = NULL,
-                         debug = NULL, inherit.blank = FALSE) {
+                         debug = NULL, inherit.blank = FALSE, ...) {
     n <- max(
       length(family), length(face), length(colour), length(size),
       length(hjust), length(vjust), length(angle), length(lineheight)
@@ -269,7 +271,7 @@ element_polygon <- S7::new_class(
   )],
   constructor = function(fill = NULL, colour = NULL, linewidth = NULL,
                          linetype = NULL, color = NULL, linejoin = NULL,
-                         inherit.blank = FALSE) {
+                         inherit.blank = FALSE, ...) {
     colour <- color %||% colour
     S7::new_object(
       S7::S7_object(),
@@ -290,7 +292,7 @@ element_point <- S7::new_class(
     c("linewidth" = "stroke")
   ),
   constructor = function(colour = NULL, shape = NULL, size = NULL, fill = NULL,
-                         stroke = NULL, color = NULL, inherit.blank = FALSE) {
+                         stroke = NULL, color = NULL, inherit.blank = FALSE, ...) {
     S7::new_object(
       S7::S7_object(),
       colour = color %||% colour, fill = fill, shape = shape, size = size,
@@ -327,8 +329,8 @@ element_geom <- S7::new_class(
     linetype = NULL, bordertype = NULL,
     family = NULL, fontsize = NULL,
     pointsize = NULL, pointshape = NULL,
-    colour = NULL, color = NULL, fill = NULL) {
-
+    colour = NULL, color = NULL, fill = NULL,
+    ...) {
     if (!is.null(fontsize)) {
       fontsize <- fontsize / .pt
     }