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

remove combined_data

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-12 14:12:30 +01:00
parent b137ac688b
commit 3d250b0b43
3 changed files with 24 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ml/server.R
View file

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