tanu/Dashboards
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ml dash

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-04 18:45:35 +01:00
parent 74df62bb85
commit d627e88aeb
3 changed files with 99 additions and 77 deletions
Download patch file Download diff file Expand all files Collapse all files

28
ml/server.R
View file

@ -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
})
})
}
)
)