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

arse

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-22 00:05:59 +01:00
parent c896a04433
commit 5536a6df55
2 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
ml/ui.R
View file

@ -8,10 +8,10 @@ library(grid) # for the info box
library(plotly)
library(shinycssloaders)
dashboardPage(skin="purple",
dashboardHeader(title="Score Selector"),
dashboardHeader(title="ML Results"),
dashboardSidebar(
radioButtons("combined_model",
label="Graph Model",
label="Model Approach",
choiceNames = c("Combined", "Gene"),
choiceValues = c("combined", "gene"),
selected="gene"
@ -36,13 +36,15 @@ dashboardPage(skin="purple",
selected = "5"
),
radioButtons("drug_dropdown",
label="Drug",
label="Target-Drug",
choiceNames = drug_choicenames,
choices = drug,
selected="pyrazinamide"
),
radioButtons("split_dropdown",
label="Split",
label="Train:Test Split",
choices = split_type,
choiceNames = split_choicenames,
selected="cd_7030"
),
radioButtons("score_dropdown",
@ -66,4 +68,4 @@ dashboardPage(skin="purple",
#DT::dataTableOut("plotdata"),
verbatimTextOutput("debug")
)
)
)