for #243

Author: Jordan S Read

R/embedded-functions.R

@@ -1,5 +1,5 @@
 is_in_package <- function(x){
-  if (is.symbol(x))
+  if (is.null(x) || is.symbol(x))
     return(FALSE)
 
   isTRUE(find(as.character(x[[1]]), mode = 'function') == paste0('package:',packageName()))

R/rect.R

@@ -45,11 +45,6 @@ rect <- function(object, ...) {
 }
 
 rect.gsplot <- function(object, ..., legend.name=NULL, side=c(1,2)){
-  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)))
+  set_window_args(object, fun.name="rect", ..., legend.name=legend.name, side=side)
 }