fix trace processing if number of subplots >= 10

alyst · alyst · commit 28c724f2789f · 2016-06-03T13:46:38.000+02:00
diff --git a/R/layers2traces.R b/R/layers2traces.R
@@ -60,7 +60,7 @@ layers2traces <- function(data, prestats_data, layout, p) {
       nms <- names(trs)
       # ignore "non-discrete" scales that we've split on
       for (w in seq_len(sum(names(d) %in% c("PANEL", split_on(d))))) {
-        nms <- sub("^[^@%&]@%&", "", nms)
+        nms <- sub("^.+@%&", "", nms)
       }
       nms <- strsplit(nms, "@%&")
       nms <- vapply(nms, function(x) {

Original file line number	Diff line number	Diff line change
`@@ -60,7 +60,7 @@ layers2traces <- function(data, prestats_data, layout, p) {`
`60`	`60`	`nms <- names(trs)`
`61`	`61`	`# ignore "non-discrete" scales that we've split on`
`62`	`62`	`for (w in seq_len(sum(names(d) %in% c("PANEL", split_on(d))))) {`
`63`		`- nms <- sub("^[^@%&]@%&", "", nms)`
	`63`	`+ nms <- sub("^.+@%&", "", nms)`
`64`	`64`	`}`
`65`	`65`	`nms <- strsplit(nms, "@%&")`
`66`	`66`	`nms <- vapply(nms, function(x) {`