changed bar title in plot selection

R/plot_functions.R

@@ -43,7 +43,7 @@ plot_dendrogram <- function(x) {
       values <- mapply(function(a, b) {
         names(a) <- labs; a[b] <- "darkred"; return(a)
         }, values, x$selected)
-      bar_labs <- paste("#int.:", names(x$groups), "- sel?")
+      bar_labs <- paste("#int.:", names(x$groups), "- sel:")
     } else {
       values_mean <- mapply(function(a, b) {
         names(a) <- labs; a[b$variable[b$"in.mean"]] <- "darkred"; return(a)