Allow one to change default symbol types

cpsievert · cpsievert · commit 2611b9d3a8fb · 2015-07-29T23:53:04.000-04:00
diff --git a/R/plotly.R b/R/plotly.R
@@ -360,7 +360,7 @@ symbolize <- function(dat) {
   N <- length(dat)
   if (N > 8) warning("Plotly supports 8 different symbols, but you have ", N, " levels!")
   symbols <- c('dot', 'cross', 'diamond', 'square', 'triangle-down', 'triangle-left', 'triangle-right', 'triangle-up')
-  sym <- symbols[seq_len(N)]
+  sym <- dat[[1]][["symbols"]][seq_len(N)] %||% symbols[seq_len(N)]
   dat <- Map(function(x, y) { x$marker$symbol <- y; x }, dat, sym)
   dat
 }

Original file line number	Diff line number	Diff line change
`@@ -360,7 +360,7 @@ symbolize <- function(dat) {`
`360`	`360`	`N <- length(dat)`
`361`	`361`	`if (N > 8) warning("Plotly supports 8 different symbols, but you have ", N, " levels!")`
`362`	`362`	`symbols <- c('dot', 'cross', 'diamond', 'square', 'triangle-down', 'triangle-left', 'triangle-right', 'triangle-up')`
`363`		`- sym <- symbols[seq_len(N)]`
	`363`	`+ sym <- dat[[1]][["symbols"]][seq_len(N)] %\|\|% symbols[seq_len(N)]`
`364`	`364`	`dat <- Map(function(x, y) { x$marker$symbol <- y; x }, dat, sym)`
`365`	`365`	`dat`
`366`	`366`	`}`