if the trace type isn't found, provide some sensible defaults

cpsievert · cpsievert · commit 873f47636307 · 2016-01-22T12:30:21.000-06:00
diff --git a/R/utils.R b/R/utils.R
@@ -126,7 +126,8 @@ add_boxed <- function(x) {
 
 # plotlyjs properties that must _always_ be an array (even if length 1)
 get_boxed <- function(type = "scatter") {
-  boxers[[type]]
+  # if the trace type isn't found, provide some sensible defaults
+  boxers[[type]] %||% c("x", "y", "z", "lat", "lon", "text", "locations")
 }
 
 # if this ever needs updating see

Original file line number	Diff line number	Diff line change
`@@ -126,7 +126,8 @@ add_boxed <- function(x) {`
`126`	`126`
`127`	`127`	`# plotlyjs properties that must _always_ be an array (even if length 1)`
`128`	`128`	`get_boxed <- function(type = "scatter") {`
`129`		`- boxers[[type]]`
	`129`	`+ # if the trace type isn't found, provide some sensible defaults`
	`130`	`+ boxers[[type]] %\|\|% c("x", "y", "z", "lat", "lon", "text", "locations")`
`130`	`131`	`}`
`131`	`132`
`132`	`133`	`# if this ever needs updating see`