Force arguments that are used in closures (#2807)

Author: krlmlr

R/save.r

@@ -118,7 +118,10 @@ plot_dim <- function(dim = c(NA, NA), scale = 1, units = c("in", "cm", "mm"),
   dim
 }
 
-plot_dev <- function(device, filename, dpi = 300) {
+plot_dev <- function(device, filename = NULL, dpi = 300) {
+  force(filename)
+  force(dpi)
+
   if (is.function(device))
     return(device)
 

R/scale-manual.r

@@ -102,6 +102,8 @@ scale_discrete_manual <- function(aesthetics, ..., values) {
 
 
 manual_scale <- function(aesthetic, values, ...) {
+  force(values)
+
   pal <- function(n) {
     if (n > length(values)) {
       stop("Insufficient values in manual scale. ", n, " needed but only ",

R/scale-size.r

@@ -68,6 +68,8 @@ scale_size_discrete <- function(...) {
 #' @export
 #' @usage NULL
 scale_size_ordinal <- function(..., range = c(2, 6)) {
+  force(range)
+
   discrete_scale(
     "size",
     "size_d",

R/stat-summary-bin.R

@@ -65,6 +65,12 @@ StatSummaryBin <- ggproto("StatSummaryBin", Stat,
 )
 
 make_summary_fun <- function(fun.data, fun.y, fun.ymax, fun.ymin, fun.args) {
+  force(fun.data)
+  force(fun.y)
+  force(fun.ymax)
+  force(fun.ymin)
+  force(fun.args)
+
   if (!is.null(fun.data)) {
     # Function that takes complete data frame as input
     fun.data <- match.fun(fun.data)