remove combined_data
This commit is contained in:
parent
b137ac688b
commit
3d250b0b43
3 changed files with 24 additions and 22 deletions
11
ml/server.R
11
ml/server.R
|
@ -2,7 +2,7 @@ library(shiny)
|
|||
shinyServer(function(input, output, session) {
|
||||
observeEvent({
|
||||
input$combined_model
|
||||
input$combined_data
|
||||
#input$combined_data
|
||||
input$combined_training_genes
|
||||
input$score_dropdown
|
||||
input$resample_dropdown
|
||||
|
@ -15,7 +15,7 @@ shinyServer(function(input, output, session) {
|
|||
resampler = input$resample_dropdown
|
||||
selected_drug = input$drug_dropdown
|
||||
selected_split = input$split_dropdown
|
||||
combined_data = input$combined_data
|
||||
#combined_data = input$combined_data
|
||||
combined_training_genes = input$combined_training_genes
|
||||
|
||||
selected_gene = combo[combo$drug == selected_drug,'gene']
|
||||
|
@ -40,14 +40,15 @@ shinyServer(function(input, output, session) {
|
|||
|
||||
hide("split_dropdown")
|
||||
#show("resample_dropdown")
|
||||
show("combined_data")
|
||||
#show("combined_data")
|
||||
show("combined_training_genes")
|
||||
#show("feature_plot")
|
||||
filedata = paste0(combined_training_genes,
|
||||
'genes_logo_skf_BT_',
|
||||
selected_gene,
|
||||
'_',
|
||||
combined_data
|
||||
"combined"
|
||||
#combined_data
|
||||
)
|
||||
feature_data = paste0(as.character(as.numeric(combined_training_genes)-4), # lol
|
||||
'genes_logo_skf_BT_',
|
||||
|
@ -85,7 +86,7 @@ shinyServer(function(input, output, session) {
|
|||
} else {
|
||||
show("split_dropdown")
|
||||
#show("resample_dropdown")
|
||||
hide("combined_data")
|
||||
#hide("combined_data")
|
||||
hide("combined_training_genes")
|
||||
#hide("feature_plot")
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue