must be explicit, otherwise user_args$y will grab user_args$ylab

Lindsay Carr · Lindsay Carr · commit 24421d25b365 · 2016-12-30T12:54:44.000-06:00
diff --git a/R/set_args.R b/R/set_args.R
@@ -15,7 +15,7 @@ set_args <- function(fun.name, ..., custom.config = FALSE, package='graphics'){
   user_args <- function_args(name=fun.name, package=package, ...)
   
   if(fun.name %in% c('points', 'lines')){
-    xy_args <- xy.coords(x = user_args$x, y = user_args$y)
+    xy_args <- xy.coords(x = user_args[['x']], y = user_args[['y']])
     user_args <- append_replace(user_args, xy_args)
   }
   

Original file line number	Diff line number	Diff line change
`@@ -15,7 +15,7 @@ set_args <- function(fun.name, ..., custom.config = FALSE, package='graphics'){`
`15`	`15`	`user_args <- function_args(name=fun.name, package=package, ...)`
`16`	`16`
`17`	`17`	`if(fun.name %in% c('points', 'lines')){`
`18`		`- xy_args <- xy.coords(x = user_args$x, y = user_args$y)`
	`18`	`+ xy_args <- xy.coords(x = user_args[['x']], y = user_args[['y']])`
`19`	`19`	`user_args <- append_replace(user_args, xy_args)`
`20`	`20`	`}`
`21`	`21`