thing
This commit is contained in:
parent
d627e88aeb
commit
88aaf56729
3 changed files with 250 additions and 144 deletions
12
ml/ui.R
12
ml/ui.R
|
@ -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"),
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue