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']
    if (combined_data == "FS"){
      updateRadioButtons(
        inputId="combined_training_genes",
        choiceNames = c("One", "Two"),
        choiceValues = c("1", "2"),
        selected = "2"
      )
    } else{
      updateRadioButtons(
        inputId="combined_training_genes",
        choiceNames = c("Five", "Six"),
        choiceValues = c("5","6"),
        selected = "5"
      )
    }
    # hide stuff if selected
    if(combined_model == "combined") {
      #if(combined_model == TRUE) {
      
      hide("split_dropdown")
      #show("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
  })
}
)