update function for grouping variable display names by class to use nested named lists (fixes error with duplicate names)

Author: jaeddy

functions/utils.R

@@ -97,14 +97,14 @@ get_friendly_numeric_columns <- function(){
         discard(~is.na(.))
 }
 
-get_friendly_numeric_columns_by_group <- function(){
-    panimmune_data$feature_df %>% 
-        rename("Class" = `Variable Class`) %>% 
-        select(Class, FriendlyLabel) %>% 
-        filter(FriendlyLabel %in% get_friendly_numeric_columns()) %>% 
-        mutate(Class = ifelse(is.na(Class), "Other", Class)) %>% 
-        split(.$Class) %>% 
-        map(function(df) df$FriendlyLabel)
+get_friendly_numeric_columns_by_group <- function() {
+  panimmune_data$feature_df %>% 
+    select(Class = `Variable Class`, FriendlyLabel, FeatureMatrixLabelTSV) %>% 
+    filter(FriendlyLabel %in% get_friendly_numeric_columns()) %>% 
+    mutate(Class = ifelse(is.na(Class), "Other", Class)) %>% 
+    nest(-Class) %>% 
+    mutate(data = map(data, deframe)) %>% 
+    deframe()
 }
 
 get_numeric_columns <- function(){

modules/immunefeaturesmodule.R

@@ -107,9 +107,9 @@ immunefeatures <- function(input, output, session, ss_choice, subset_df) {
   output$violinPlot <- renderPlotly({
 
     display_x  <- ss_choice()
-    display_y  <- input$violin_y
     internal_x <- get_variable_internal_name(display_x)
-    internal_y <- get_variable_internal_name(display_y)
+    internal_y <- input$violin_y
+    display_y  <- get_variable_display_name(internal_y)
 
     plot_df <- subset_df() %>%
       select_(.dots = c(internal_x, internal_y)) %>%