Undo mistake due to clumsy git skills

Author: teunbrand

NEWS.md

@@ -1,7 +1,5 @@
 # ggplot2 (development version)
 
-* `ggsave()` warns when multiple `filename`s are given, and only writes to the
-  first file (@teunbrand, #5114).
 * Fixed a regression in `geom_hex()` where aesthetics were replicated across 
   bins (@thomasp85, #5037 and #5044)
 * Fixed spurious warning when `weight` aesthetic was used in `stat_smooth()` 

R/save.r

@@ -77,17 +77,6 @@ ggsave <- function(filename, plot = last_plot(),
                    device = NULL, path = NULL, scale = 1,
                    width = NA, height = NA, units = c("in", "cm", "mm", "px"),
                    dpi = 300, limitsize = TRUE, bg = NULL, ...) {
-  if (length(filename) != 1) {
-    if (length(filename) == 0) {
-      cli::cli_abort("{.arg filename} cannot be empty.")
-    }
-    len <- length(filename)
-    filename <- filename[1]
-    cli::cli_warn(c(
-      "{.arg filename} must have length 1, not length {len}.",
-      "!" = "Only the first, {.file {filename}}, will be used."
-    ))
-  }
 
   dpi <- parse_dpi(dpi)
   dev <- plot_dev(device, filename, dpi = dpi)

tests/testthat/test-ggsave.R

@@ -56,21 +56,6 @@ test_that("ggsave can handle blank background", {
   expect_true(grepl("fill: none", bg))
 })
 
-test_that("ggsave warns about empty or multiple filenames", {
-  filenames <- c("plot1.png", "plot2.png")
-  plot <- ggplot(mtcars, aes(disp, mpg)) + geom_point()
-
-  withr::with_file(filenames, {
-    expect_warning(
-      suppressMessages(ggsave(filenames, plot)),
-      "`filename` must have length 1"
-    )
-    expect_error(
-      ggsave(character(), plot),
-      "`filename` cannot be empty."
-    )
-  })
-})
 
 # plot_dim ---------------------------------------------------------------