use equally spaced grid of values when generating colorscale, closes #1308

cpsievert · cpsievert · commit 860bfa4252e6 · 2018-11-01T16:58:19.000-05:00
diff --git a/R/plotly_build.R b/R/plotly_build.R
@@ -775,7 +775,7 @@ map_color <- function(traces, stroke = FALSE, title = "", colorway, na.color = "
     colScale <- scales::col_numeric(pal, rng, na.color = na.color)
     # generate the colorscale to be shared across traces
     vals <- if (diff(rng) > 0) {
-      as.numeric(stats::quantile(allColor, probs = seq(0, 1, length.out = 25), na.rm = TRUE))
+      seq(rng[1], rng[2], length.out = 25)
     } else {
       c(0, 1)
     }

Original file line number	Diff line number	Diff line change
`@@ -775,7 +775,7 @@ map_color <- function(traces, stroke = FALSE, title = "", colorway, na.color = "`
`775`	`775`	`colScale <- scales::col_numeric(pal, rng, na.color = na.color)`
`776`	`776`	`# generate the colorscale to be shared across traces`
`777`	`777`	`vals <- if (diff(rng) > 0) {`
`778`		`- as.numeric(stats::quantile(allColor, probs = seq(0, 1, length.out = 25), na.rm = TRUE))`
	`778`	`+ seq(rng[1], rng[2], length.out = 25)`
`779`	`779`	`} else {`
`780`	`780`	`c(0, 1)`
`781`	`781`	`}`