Do not append several names in the legend if identical

Author: mkcor

R/trace_generation.R

@@ -178,7 +178,7 @@ layer2traces <- function(l, d, misc) {
       }
     }
     name.names <- grep("[.]name$", names(data.params$params), value=TRUE)
-    if(length(name.names)){
+    if (length(name.names)) {
       for(a.name in name.names){
         a <- sub("[.]name$", "", a.name)
         a.value <- as.character(data.params$params[[a.name]])
@@ -189,6 +189,8 @@ 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]]
     }
 
     dpd <- data.params$data