ML dashboard/Score Selector initial commit

This commit is contained in:
Tanushree Tunstall 2022-09-02 16:09:33 +00:00
parent 8a8b36d725
commit 5a4535f747
3 changed files with 382 additions and 0 deletions

69
ml/ui.R
View file

@ -0,0 +1,69 @@
library(shiny)
library(shinyjs)
library(shinydashboard)
#library("wesanderson") # ayyyy lmao hipster af
library(dplyr)
library(ggplot2)
library(grid) # for the info box
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"),
choiceValues = c("complete", "actual"),
selected="complete"
),
radioButtons("combined_training_genes",
label="Training Genes",
choiceNames = c("Five", "Six"),
choiceValues = c("5","6"),
selected = "5"
),
radioButtons("drug_dropdown",
label="Drug",
choices = drug,
selected="pyrazinamide"
),
radioButtons("split_dropdown",
label="Split",
choices = split_type,
selected="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")
)
)