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

23
ml/global.R
View file

@ -227,12 +227,12 @@ if (interactive()){
# ), # ),
#), #),
radioButtons("combined_data", # radioButtons("combined_data",
label="Data Type", # label="Data Type",
choiceNames = c("Complete", "Actual"), # choiceNames = c("Complete", "Actual"),
choiceValues = c("complete", "actual"), # choiceValues = c("complete", "actual"),
selected="complete" # selected="complete"
), # ),
radioButtons("combined_training_genes", radioButtons("combined_training_genes",
label="Training Genes", label="Training Genes",
choiceNames = c("Five", "Six"), choiceNames = c("Five", "Six"),
@ -276,7 +276,7 @@ if (interactive()){
server=shinyServer(function(input, output, session) { server=shinyServer(function(input, output, session) {
observeEvent({ observeEvent({
input$combined_model input$combined_model
input$combined_data #input$combined_data
input$combined_training_genes input$combined_training_genes
input$score_dropdown input$score_dropdown
input$resample_dropdown input$resample_dropdown
@ -289,7 +289,7 @@ if (interactive()){
resampler = input$resample_dropdown resampler = input$resample_dropdown
selected_drug = input$drug_dropdown selected_drug = input$drug_dropdown
selected_split = input$split_dropdown selected_split = input$split_dropdown
combined_data = input$combined_data #combined_data = input$combined_data
combined_training_genes = input$combined_training_genes combined_training_genes = input$combined_training_genes
selected_gene = combo[combo$drug == selected_drug,'gene'] selected_gene = combo[combo$drug == selected_drug,'gene']
@ -314,14 +314,15 @@ if (interactive()){
hide("split_dropdown") hide("split_dropdown")
#show("resample_dropdown") #show("resample_dropdown")
show("combined_data") #show("combined_data")
show("combined_training_genes") show("combined_training_genes")
#show("feature_plot") #show("feature_plot")
filedata = paste0(combined_training_genes, filedata = paste0(combined_training_genes,
'genes_logo_skf_BT_', 'genes_logo_skf_BT_',
selected_gene, selected_gene,
'_', '_',
combined_data "complete"
#combined_data
) )
feature_data = paste0(as.character(as.numeric(combined_training_genes)-4), # lol feature_data = paste0(as.character(as.numeric(combined_training_genes)-4), # lol
'genes_logo_skf_BT_', 'genes_logo_skf_BT_',
@ -359,7 +360,7 @@ if (interactive()){
} else { } else {
show("split_dropdown") show("split_dropdown")
#show("resample_dropdown") #show("resample_dropdown")
hide("combined_data") #hide("combined_data")
hide("combined_training_genes") hide("combined_training_genes")
#hide("feature_plot") #hide("feature_plot")

11
ml/server.R
View file

@ -2,7 +2,7 @@ library(shiny)
shinyServer(function(input, output, session) { shinyServer(function(input, output, session) {
observeEvent({ observeEvent({
input$combined_model input$combined_model
input$combined_data #input$combined_data
input$combined_training_genes input$combined_training_genes
input$score_dropdown input$score_dropdown
input$resample_dropdown input$resample_dropdown
@ -15,7 +15,7 @@ shinyServer(function(input, output, session) {
resampler = input$resample_dropdown resampler = input$resample_dropdown
selected_drug = input$drug_dropdown selected_drug = input$drug_dropdown
selected_split = input$split_dropdown selected_split = input$split_dropdown
combined_data = input$combined_data #combined_data = input$combined_data
combined_training_genes = input$combined_training_genes combined_training_genes = input$combined_training_genes
selected_gene = combo[combo$drug == selected_drug,'gene'] selected_gene = combo[combo$drug == selected_drug,'gene']
@ -40,14 +40,15 @@ shinyServer(function(input, output, session) {
hide("split_dropdown") hide("split_dropdown")
#show("resample_dropdown") #show("resample_dropdown")
show("combined_data") #show("combined_data")
show("combined_training_genes") show("combined_training_genes")
#show("feature_plot") #show("feature_plot")
filedata = paste0(combined_training_genes, filedata = paste0(combined_training_genes,
'genes_logo_skf_BT_', 'genes_logo_skf_BT_',
selected_gene, selected_gene,
'_', '_',
combined_data "combined"
#combined_data
) )
feature_data = paste0(as.character(as.numeric(combined_training_genes)-4), # lol feature_data = paste0(as.character(as.numeric(combined_training_genes)-4), # lol
'genes_logo_skf_BT_', 'genes_logo_skf_BT_',
@ -85,7 +86,7 @@ shinyServer(function(input, output, session) {
} else { } else {
show("split_dropdown") show("split_dropdown")
#show("resample_dropdown") #show("resample_dropdown")
hide("combined_data") #hide("combined_data")
hide("combined_training_genes") hide("combined_training_genes")
#hide("feature_plot") #hide("feature_plot")

12
ml/ui.R
View file

@ -23,12 +23,12 @@ dashboardPage(skin="purple",
# ), # ),
#), #),
radioButtons("combined_data", # radioButtons("combined_data",
label="Data Type", # label="Data Type",
choiceNames = c("Complete", "Actual"), # choiceNames = c("Complete", "Actual"),
choiceValues = c("complete", "actual"), # choiceValues = c("complete", "actual"),
selected="complete" # selected="complete"
), # ),
radioButtons("combined_training_genes", radioButtons("combined_training_genes",
label="Training Genes", label="Training Genes",
choiceNames = c("Five", "Six"), choiceNames = c("Five", "Six"),