ml dash
This commit is contained in:
parent
74df62bb85
commit
d627e88aeb
3 changed files with 99 additions and 77 deletions
28
ml/server.R
28
ml/server.R
|
@ -18,12 +18,26 @@ shinyServer(function(input, output) {
|
|||
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']
|
||||
|
||||
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) {
|
||||
#if(combined_model == TRUE) {
|
||||
|
||||
hide("split_dropdown")
|
||||
#show("resample_dropdown")
|
||||
|
@ -66,13 +80,13 @@ shinyServer(function(input, output) {
|
|||
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
|
||||
})
|
||||
})
|
||||
}
|
||||
)
|
||||
)
|
Loading…
Add table
Add a link
Reference in a new issue