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:12:22 +01:00
parent 5536a6df55
commit ff066b7d6a
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ml/global.R
View file

@ -73,7 +73,9 @@ metadata_cols = c("n_training_size", "n_test_size", "n_trainingY_ratio", "n_test
# hardcoded list of drugs
drug = c("ethambutol", "isoniazid", "pyrazinamide", "rifampicin", "streptomycin")
drug_choicenames = c("EmbB-ethambutol", "KatG-isoniazid", "PncA-pyrazinamide", "RpoB-rifampicin", "GidB-streptomycin")
gene = c("embb", "katg", "pnca", "rpob", "gid")
combo = data.frame(drug, gene)
@ -248,11 +250,13 @@ if (interactive()){
),
radioButtons("drug_dropdown",
label="Drug",
choiceNames = drug_choicenames,
choices = drug,
selected="pyrazinamide"
),
radioButtons("split_dropdown",
label="Split",
choiceNames = split_choicenames,
choices = split_type,
selected="cd_7030"
),

4
ml/ui.R
View file

@ -38,12 +38,12 @@ dashboardPage(skin="purple",
radioButtons("drug_dropdown",
label="Target-Drug",
choiceNames = drug_choicenames,
choices = drug,
choiceValues = drug,
selected="pyrazinamide"
),
radioButtons("split_dropdown",
label="Train:Test Split",
choices = split_type,
choiceValues = split_type,
choiceNames = split_choicenames,
selected="cd_7030"
),