bug fix for config()

cpsievert · cpsievert · commit 66dc1af6bd23 · 2016-10-02T12:04:30.000-05:00
diff --git a/R/layout.R b/R/layout.R
@@ -79,7 +79,7 @@ config <- function(p, ...) {
     if (!removeCollab) list(sharingButton()),
     attrs[["modeBarButtonsToAdd"]]
   )
-  attrs <- attrs[grepl("modeBarButtonsTo", names(attrs))]
+  attrs <- attrs[!grepl("modeBarButtonsTo", names(attrs))]
   p$x$config <- modify_list(p$x$config, attrs)
   p
 }

Original file line number	Diff line number	Diff line change
`@@ -79,7 +79,7 @@ config <- function(p, ...) {`
`79`	`79`	`if (!removeCollab) list(sharingButton()),`
`80`	`80`	`attrs[["modeBarButtonsToAdd"]]`
`81`	`81`	`)`
`82`		`- attrs <- attrs[grepl("modeBarButtonsTo", names(attrs))]`
	`82`	`+ attrs <- attrs[!grepl("modeBarButtonsTo", names(attrs))]`
`83`	`83`	`p$x$config <- modify_list(p$x$config, attrs)`
`84`	`84`	`p`
`85`	`85`	`}`