indexing allowed for points and lines

Author: Lindsay Carr

R/set_args.R

@@ -14,6 +14,11 @@ set_args <- function(fun.name, ..., custom.config = FALSE, package='graphics'){
   config_args <- config(fun.name, custom.config = custom.config)
   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)
+    user_args <- append_replace(user_args, xy_args)
+  }
+  
   indicesToAdd <- !(names(config_args) %in% names(user_args))
   arguments <- append(user_args, config_args[indicesToAdd])
   return(arguments)