Add more assessment information

This commit is contained in:
Elias Projahn 2021-10-15 15:03:40 +02:00
parent aaff5878ec
commit 7800cc09b4
3 changed files with 64 additions and 39 deletions

22
ui.R
View file

@ -53,11 +53,7 @@ ui <- fluidPage(
header = div(style = "margin-top: 16px"),
tabPanel(
"Results",
textOutput("synposis"),
div(
style = "margin-top: 16px",
uiOutput("copy")
),
uiOutput("copy"),
div(
style = "margin-top: 16px",
DTOutput("genes", height = "1000px")
@ -72,12 +68,16 @@ ui <- fluidPage(
)
),
tabPanel(
"Ranks",
plotlyOutput(
"rank_plot",
width = "100%",
height = "600px"
)
"Assessment",
htmlOutput("assessment_synopsis"),
div(
style = "margin-top: 16px",
plotlyOutput(
"rank_plot",
width = "100%",
height = "600px"
)
),
),
tabPanel(
"Analysis",