Force names in legend into class character

mkcor · mkcor · commit d0f6e05f5e12 · 2014-10-20T18:18:57.000-04:00
diff --git a/R/trace_generation.R b/R/trace_generation.R
@@ -190,7 +190,7 @@ layer2traces <- function(l, d, misc) {
       name.list <- data.params$params[name.names]
       tr$name <- paste(unlist(name.list), collapse=".")
       if (length(unique(name.list)) < 2)
-        tr$name <- name.list[[1]]
+        tr$name <- as.character(name.list[[1]])
     }
     
     dpd <- data.params$data

Original file line number	Diff line number	Diff line change
`@@ -190,7 +190,7 @@ layer2traces <- function(l, d, misc) {`
`190`	`190`	`name.list <- data.params$params[name.names]`
`191`	`191`	`tr$name <- paste(unlist(name.list), collapse=".")`
`192`	`192`	`if (length(unique(name.list)) < 2)`
`193`		`- tr$name <- name.list[[1]]`
	`193`	`+ tr$name <- as.character(name.list[[1]])`
`194`	`194`	`}`
`195`	`195`
`196`	`196`	`dpd <- data.params$data`