ML dashboard/Score Selector initial commit

ml/server.R

@@ -0,0 +1,78 @@
+library(shiny)
+
+shinyServer(function(input, output) {
+  observeEvent({
+    input$combined_model
+    input$combined_data
+    input$combined_training_genes
+    input$score_dropdown
+    input$resample_dropdown
+    input$drug_dropdown
+    input$split_dropdown
+    
+  },{
+    combined_model          = input$combined_model
+    selection               = input$score_dropdown
+    resampler               = input$resample_dropdown
+    selected_drug           = input$drug_dropdown
+    selected_split          = input$split_dropdown
+    combined_data           = input$combined_data
+    combined_training_genes = input$combined_training_genes
+
+    selected_gene           = combo[combo$drug == selected_drug,'gene']
+    
+    # hide stuff if selected
+    if(combined_model == "combined") {
+    #if(combined_model == TRUE) {
+      
+      hide("split_dropdown")
+      hide("resample_dropdown")
+      show("combined_data")
+      show("combined_training_genes")
+      filedata = paste0(combined_training_genes,
+                        'genes_logo_skf_BT_',
+                        selected_gene,
+                        '_',
+                        combined_data
+      )
+      print(filedata)
+      
+      print('doing COMBINED plot')
+      output$plot <- renderPlot(makeplot(loaded_files[[filedata]],
+                                         selection,
+                                         "none", # always 'none' for combined plot
+                                         gene = combo[drug==selected_drug,"gene"],
+                                         combined_training_genes = combined_training_genes,
+                                         display_combined = TRUE,
+      )
+      )
+      # e.g.
+      # makeplot(loaded_files$`5genes_logo_skf_BT_pnca_actual`, "MCC", "none" , gene = 'foo', combined_training_genes = '1234', display_combined = TRUE)
+    } else {
+      show("split_dropdown")
+      show("resample_dropdown")
+      hide("combined_data")
+      hide("combined_training_genes")
+      filedata       = paste0(combo[drug==selected_drug,"gene"],
+                              '_baselineC_',
+                              selected_split
+      )
+      print(filedata)
+      print("doing GENE plot")
+      output$plot <- renderPlot(makeplot(loaded_files[[filedata]], 
+                                         selection, 
+                                         resampler,
+                                         gene = combo[drug==selected_drug,"gene"],
+                                         display_combined = FALSE,
+      )
+      )
+
+
+    }
+    # 6genes_logo_skf_BT_gid_complete
+    
+    # filedata example for combined: 6genes_logo_skf_BT_embb_actual
+    #                                6genes_logo_skf_BT_embb_combined
+})
+}
+)