mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 11:17:24 +01:00
Add more assessment information
This commit is contained in:
parent
aaff5878ec
commit
7800cc09b4
3 changed files with 64 additions and 39 deletions
22
ui.R
22
ui.R
|
|
@ -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",
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue