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

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