lazyeval has trouble w/ arg=NULL

Jordan S Read · Jordan S Read · commit c0d7a4871ece · 2015-09-12T08:32:55.000-05:00
diff --git a/R/rect.R b/R/rect.R
@@ -45,6 +45,11 @@ rect <- function(object, ...) {
 }
 
 rect.gsplot <- function(object, ..., legend.name=NULL, side=c(1,2)){
-  set_window_args(object, fun.name="rect", ..., legend.name=legend.name, side=side)
+  fun.name <- "rect"
+  to.gsplot <- list(list(arguments = set_args(fun.name, ...), 
+                         gs.config=list(legend.name = legend.name, side = side))) %>% 
+    setNames(fun.name)
+  
+  return(gsplot(append(object, to.gsplot)))
 }
 

Original file line number	Diff line number	Diff line change
`@@ -45,6 +45,11 @@ rect <- function(object, ...) {`
`45`	`45`	`}`
`46`	`46`
`47`	`47`	`rect.gsplot <- function(object, ..., legend.name=NULL, side=c(1,2)){`
`48`		`- set_window_args(object, fun.name="rect", ..., legend.name=legend.name, side=side)`
	`48`	`+ fun.name <- "rect"`
	`49`	`+ to.gsplot <- list(list(arguments = set_args(fun.name, ...),`
	`50`	`+ gs.config=list(legend.name = legend.name, side = side))) %>%`
	`51`	`+ setNames(fun.name)`
	`52`	`+`
	`53`	`+ return(gsplot(append(object, to.gsplot)))`
`49`	`54`	`}`
`50`	`55`