Fix a warning "... may be used in an incorrect context" (#4902)

Author: yutannihilation

R/save.r

@@ -173,8 +173,10 @@ plot_dev <- function(device, filename = NULL, dpi = 300, call = caller_env()) {
     if ("units" %in% names(args)) {
       call_args$units <- 'in'
     }
-    args <- modify_list(list(...), call_args)
-    dev <- function(...) inject(device(!!!args))
+    dev <- function(...) {
+      args <- modify_list(list(...), call_args)
+      inject(device(!!!args))
+    }
     return(dev)
   }