92 lines
No EOL
3.1 KiB
R
92 lines
No EOL
3.1 KiB
R
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
|
|
})
|
|
}
|
|
) |