This commit is contained in:
Tanushree Tunstall 2022-09-04 21:35:08 +01:00
parent d627e88aeb
commit 88aaf56729
3 changed files with 250 additions and 144 deletions

12
ml/ui.R
View file

@ -7,7 +7,6 @@ library(ggplot2)
library(grid) # for the info box
library(plotly)
library(shinycssloaders)
dashboardPage(skin="purple",
dashboardHeader(title="Score Selector"),
dashboardSidebar(
@ -26,14 +25,14 @@ dashboardPage(skin="purple",
radioButtons("combined_data",
label="Data Type",
choiceNames = c("Complete", "Actual", "Feature Selection"),
choiceValues = c("complete", "actual", "FS"),
choiceNames = c("Complete", "Actual"),
choiceValues = c("complete", "actual"),
selected="complete"
),
radioButtons("combined_training_genes",
label="Training Genes",
choiceNames = c("One", "Two", "Five", "Six"),
choiceValues = c("1", "2", "5","6"),
choiceNames = c("Five", "Six"),
choiceValues = c("5","6"),
selected = "5"
),
radioButtons("drug_dropdown",
@ -60,7 +59,8 @@ dashboardPage(skin="purple",
dashboardBody(
useShinyjs(),
#plotlyOutput("plot", height = 800),
plotOutput("plot", height = 800),
box(plotOutput("plot"), width="100%"),
box(plotOutput("feature_plot"), width="100%", title="Feature Selection"),
# %>% withSpinner(color="#0dc5c1"), # uncomment if you want the spinner
#downloadButton("save", "Download Plot"),
#DT::dataTableOut("plotdata"),