diff --git a/ml/global.R b/ml/global.R index 8bc0fb6..afbcb4f 100644 --- a/ml/global.R +++ b/ml/global.R @@ -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" ), diff --git a/ml/ui.R b/ml/ui.R index 91214b3..821e77d 100644 --- a/ml/ui.R +++ b/ml/ui.R @@ -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" ),