add ellipses to theme_sub_*() family

Author: teunbrand

R/theme-sub.R

@@ -54,49 +54,57 @@ subtheme <- function(elements, prefix = "", suffix = "", call = caller_env()) {
 
 #' @export
 #' @describeIn subtheme Theme specification for all axes.
-theme_sub_axis <- function(title, text, ticks, ticks.length, line, minor.ticks.length) {
+theme_sub_axis <- function(..., title, text, ticks, ticks.length, line, minor.ticks.length) {
+  warn_dots_empty()
   subtheme(find_args(), "axis.")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for both x axes.
-theme_sub_axis_x <- function(title, text, ticks, ticks.length, line, minor.ticks.length) {
+theme_sub_axis_x <- function(..., title, text, ticks, ticks.length, line, minor.ticks.length) {
+  warn_dots_empty()
   subtheme(find_args(), "axis.", ".x")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for both y axes.
-theme_sub_axis_y <- function(title, text, ticks, ticks.length, line, minor.ticks.length) {
+theme_sub_axis_y <- function(..., title, text, ticks, ticks.length, line, minor.ticks.length) {
+  warn_dots_empty()
   subtheme(find_args(), "axis.", ".y")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for the bottom x axis.
-theme_sub_axis_bottom <- function(title, text, ticks, ticks.length, line, minor.ticks, minor.ticks.length) {
+theme_sub_axis_bottom <- function(..., title, text, ticks, ticks.length, line, minor.ticks, minor.ticks.length) {
+  warn_dots_empty()
   subtheme(find_args(), "axis.", ".x.bottom")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for the top x axis.
-theme_sub_axis_top <- function(title, text, ticks, ticks.length, line, minor.ticks, minor.ticks.length) {
+theme_sub_axis_top <- function(..., title, text, ticks, ticks.length, line, minor.ticks, minor.ticks.length) {
+  warn_dots_empty()
   subtheme(find_args(), "axis.", ".x.top")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for the left y axis.
-theme_sub_axis_left <- function(title, text, ticks, ticks.length, line, minor.ticks, minor.ticks.length) {
+theme_sub_axis_left <- function(..., title, text, ticks, ticks.length, line, minor.ticks, minor.ticks.length) {
+  warn_dots_empty()
   subtheme(find_args(), "axis.", ".y.left")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for the right y axis.
-theme_sub_axis_right <- function(title, text, ticks, ticks.length, line, minor.ticks, minor.ticks.length) {
+theme_sub_axis_right <- function(..., title, text, ticks, ticks.length, line, minor.ticks, minor.ticks.length) {
+  warn_dots_empty()
   subtheme(find_args(), "axis.", ".y.right")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for the legend.
 theme_sub_legend <- function(
+  ...,
   # Text stuff
   text, text.position, title, title.position,
   # Drawn elements
@@ -114,32 +122,36 @@ theme_sub_legend <- function(
   # Box
   box, box.just, box.margin, box.background, box.spacing
 ) {
+  warn_dots_empty()
   subtheme(find_args(), "legend.")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for the panels.
-theme_sub_panel <- function(background, border,
+theme_sub_panel <- function(..., background, border,
                             widths, heights, spacing, spacing.x, spacing.y,
                             grid, grid.major, grid.minor, grid.major.x,
                             grid.major.y, grid.minor.x, grid.minor.y, ontop) {
+  warn_dots_empty()
   subtheme(find_args(), "panel.")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for the whole plot.
-theme_sub_plot <- function(background, title, title.position, subtitle, caption,
+theme_sub_plot <- function(..., background, title, title.position, subtitle, caption,
                            caption.position, tag, tag.position, tag.location,
                            margin) {
+  warn_dots_empty()
   subtheme(find_args(), "plot.")
 }
 
 #' @export
 #' @describeIn subtheme Theme specification for facet strips.
-theme_sub_strip <- function(background, background.x, background.y, clip,
+theme_sub_strip <- function(..., background, background.x, background.y, clip,
                             placement, text, text.x, text.x.bottom, text.x.top,
                             text.y, text.y.left, text.y.right,
                             switch.pad.grid, switch.pad.wrap) {
+  warn_dots_empty()
   subtheme(find_args(), "strip.")
 }