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

32
ml/global.R
View file

@ -56,6 +56,8 @@ split_map = data.frame(
)
)
colour_range=c("#605ca8", "#bebddb", "#221e70")
metadata_cols = c("n_training_size", "n_test_size", "n_trainingY_ratio", "n_testY_ratio", "resampling", "n_features")
# hardcoded list of drugs
@ -159,9 +161,6 @@ makeplot = function(x, # the DataFrame to plot
, position=position_dodge2(padding=0.1, preserve='total', reverse=TRUE)
) +
coord_cartesian(ylim = c(y_coord_min, 1)) +
#scale_fill_manual(values = c("BT" = "#605ca8",
# "CV" = "#bebddb") ) +
#guides=guide_legend(reverse=TRUE) +
annotation_custom(grob) +
# doesn't work with plotly but looks nice :-(
geom_label(aes_string(label=selection),
@ -172,15 +171,10 @@ makeplot = function(x, # the DataFrame to plot
fill="white"
) +
scale_color_manual(values = colour_range) +
scale_fill_manual(values = colour_range) +
# works with plotly but i can't figure out the background yet
# geom_text(aes_string(label=selection, group=selection),
# position=position_dodge(width = -0.75),
# vjust = 1.5,
# alpha=0.75,
#
# ) +
# add little numbers for the BT bars only
labs(x="",y=paste(selection,"Score")) +
theme(
@ -210,7 +204,21 @@ if (interactive()){
combined_training_genes = input$combined_training_genes
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) {

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

116
ml/ui.R
View file

@ -9,61 +9,61 @@ library(plotly)
library(shinycssloaders)
dashboardPage(skin="purple",
dashboardHeader(title="Score Selector"),
dashboardSidebar(
radioButtons("combined_model",
label="Graph Model",
choiceNames = c("Combined", "Gene"),
choiceValues = c("combined", "gene"),
selected="gene"
),
# checkboxInput("combined_model",
# "Combined Model",
# value=FALSE
# ),
#),
radioButtons("combined_data",
label="Data Type",
choiceNames = c("Complete", "Actual", "Feature Selection"),
choiceValues = c("complete", "actual", "FS"),
selected="complete"
),
radioButtons("combined_training_genes",
label="Training Genes",
choiceNames = c("One", "Two", "Five", "Six"),
choiceValues = c("1", "2", "5","6"),
selected = "5"
),
radioButtons("drug_dropdown",
label="Drug",
choices = drug,
selected="pyrazinamide"
),
radioButtons("split_dropdown",
label="Split",
choices = split_type,
selected="cd_7030"
),
radioButtons("score_dropdown",
label="Score",
choices = scores,
selected="MCC"
),
radioButtons("resample_dropdown",
label="Resampling",
choices = resample_types,
selected="none" # "none" is a value
)
),
dashboardBody(
useShinyjs(),
#plotlyOutput("plot", height = 800),
plotOutput("plot", height = 800),
# %>% withSpinner(color="#0dc5c1"), # uncomment if you want the spinner
#downloadButton("save", "Download Plot"),
#DT::dataTableOut("plotdata"),
verbatimTextOutput("debug")
)
)
dashboardHeader(title="Score Selector"),
dashboardSidebar(
radioButtons("combined_model",
label="Graph Model",
choiceNames = c("Combined", "Gene"),
choiceValues = c("combined", "gene"),
selected="gene"
),
# checkboxInput("combined_model",
# "Combined Model",
# value=FALSE
# ),
#),
radioButtons("combined_data",
label="Data Type",
choiceNames = c("Complete", "Actual", "Feature Selection"),
choiceValues = c("complete", "actual", "FS"),
selected="complete"
),
radioButtons("combined_training_genes",
label="Training Genes",
choiceNames = c("One", "Two", "Five", "Six"),
choiceValues = c("1", "2", "5","6"),
selected = "5"
),
radioButtons("drug_dropdown",
label="Drug",
choices = drug,
selected="pyrazinamide"
),
radioButtons("split_dropdown",
label="Split",
choices = split_type,
selected="cd_7030"
),
radioButtons("score_dropdown",
label="Score",
choices = scores,
selected="MCC"
),
radioButtons("resample_dropdown",
label="Resampling",
choices = resample_types,
selected="none" # "none" is a value
)
),
dashboardBody(
useShinyjs(),
#plotlyOutput("plot", height = 800),
plotOutput("plot", height = 800),
# %>% withSpinner(color="#0dc5c1"), # uncomment if you want the spinner
#downloadButton("save", "Download Plot"),
#DT::dataTableOut("plotdata"),
verbatimTextOutput("debug")
)
)