Absorb arguments meant for grDevices devices in ragg devices and throw a warning instead of errorring

Author: thomasp85

NEWS.md

@@ -1,7 +1,12 @@
 # ggplot2 (development version)
 
 * Revert changes made in #4434 (apply transform to intercept in `geom_abline()`) 
-  as it introduced undesirable issues far worse than the bug it fixed.
+  as it introduced undesirable issues far worse than the bug it fixed 
+  (@thomasp85, #4514)
+* Fixes an issue in `ggsave()` when producing emf/wmf files (@yutannihilation, 
+  #4521)
+* Warn when grDevices specific arguments are passed to ragg devices (@thomasp85, 
+  #4524)
 
 # ggplot2 3.3.4
 This is a larger patch release fixing a huge number of bugs and introduces a 

R/save.r

@@ -178,9 +178,9 @@ plot_dev <- function(device, filename = NULL, dpi = 300) {
       paper = "special")
   }
   if (requireNamespace('ragg', quietly = TRUE)) {
-    png_dev <- ragg::agg_png
-    jpeg_dev <- ragg::agg_jpeg
-    tiff_dev <- ragg::agg_tiff
+    png_dev <- absorb_grdevice_args(ragg::agg_png)
+    jpeg_dev <- absorb_grdevice_args(ragg::agg_jpeg)
+    tiff_dev <- absorb_grdevice_args(ragg::agg_tiff)
   } else {
     png_dev <- grDevices::png
     jpeg_dev <- grDevices::jpeg
@@ -220,3 +220,12 @@ plot_dev <- function(device, filename = NULL, dpi = 300) {
 grid.draw.ggplot <- function(x, recording = TRUE) {
   print(x)
 }
+
+absorb_grdevice_args <- function(f) {
+  function(..., type, antialias) {
+    if (!missing(type) || !missing(antialias)) {
+      warn("Using ragg device as default. Ignoring `type` and `antialias` arguments")
+    }
+    f(...)
+  }
+}