ensure add_sf() calls add_trace() with unique args

cpsievert · cpsievert · commit 5bb34e5c3eec · 2018-08-14T19:31:23.000-04:00
diff --git a/R/add.R b/R/add.R
@@ -337,7 +337,8 @@ add_sf <- function(p, ..., x = ~x, y = ~y, data = NULL, inherit = TRUE) {
       data = if ("group" %in% names(d[[i]])) group_by_(d[[i]], "group", add = TRUE) else d[[i]], 
       inherit = inherit
     )
-    p <- do.call(add_trace_classed, c(args, attrs))
+    args <- modify_list(args, attrs)
+    p <- do.call(add_trace_classed, args)
   }
   
   p

Original file line number	Diff line number	Diff line change
`@@ -337,7 +337,8 @@ add_sf <- function(p, ..., x = ~x, y = ~y, data = NULL, inherit = TRUE) {`
`337`	`337`	`data = if ("group" %in% names(d[[i]])) group_by_(d[[i]], "group", add = TRUE) else d[[i]],`
`338`	`338`	`inherit = inherit`
`339`	`339`	`)`
`340`		`- p <- do.call(add_trace_classed, c(args, attrs))`
	`340`	`+ args <- modify_list(args, attrs)`
	`341`	`+ p <- do.call(add_trace_classed, args)`
`341`	`342`	`}`
`342`	`343`
`343`	`344`	`p`