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",
label="Data Type",
choiceNames = c("Complete", "Actual"),
choiceValues = c("complete", "actual"),
selected="complete"
),
# radioButtons("combined_data",
# label="Data Type",
# choiceNames = c("Complete", "Actual"),
# choiceValues = c("complete", "actual"),
# selected="complete"
# ),
radioButtons("combined_training_genes",
label="Training Genes",
choiceNames = c("Five", "Six"),
@ -276,7 +276,7 @@ if (interactive()){
server=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
@ -289,7 +289,7 @@ if (interactive()){
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']
@ -314,14 +314,15 @@ if (interactive()){
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
"complete"
#combined_data
)
feature_data = paste0(as.character(as.numeric(combined_training_genes)-4), # lol
'genes_logo_skf_BT_',
@ -359,7 +360,7 @@ if (interactive()){
} else {
show("split_dropdown")
#show("resample_dropdown")
hide("combined_data")
#hide("combined_data")
hide("combined_training_genes")
#hide("feature_plot")

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

12
ml/ui.R
View file

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