johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Organize output in tabs

Browse source
This commit is contained in:
Elias Projahn 2021-10-15 13:59:00 +02:00
parent 527ba01cc9
commit aaff5878ec
2 changed files with 50 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

8
server.R
View file

@ -100,6 +100,7 @@ server <- function(input, output) {
rownames = FALSE,
colnames = column_names,
style = "bootstrap",
fillContainer = TRUE,
extensions = "Scroller",
options = list(
rowCallback = js_link,
@ -137,19 +138,18 @@ server <- function(input, output) {
names_text <- paste(names, collapse = "\n")
splitLayout(
cellWidths = "auto",
rclipButton(
"copy_ids_button",
"Copy gene IDs",
genes_text,
icon = icon("clipboard"),
width = "100%"
icon = icon("clipboard")
),
rclipButton(
"copy_names_button",
"Copy gene names",
names_text,
icon = icon("clipboard"),
width = "100%"
icon = icon("clipboard")
)
)
})

39
ui.R
View file

@ -48,13 +48,11 @@ ui <- fluidPage(
),
),
mainPanel(
h3("Gene ranks"),
plotlyOutput(
"rank_plot",
width = "100%",
height = "600px"
),
h3("Results"),
tabsetPanel(
type = "pills",
header = div(style = "margin-top: 16px"),
tabPanel(
"Results",
textOutput("synposis"),
div(
style = "margin-top: 16px",
@ -62,22 +60,31 @@ ui <- fluidPage(
),
div(
style = "margin-top: 16px",
DTOutput("genes")
DTOutput("genes", height = "1000px")
)
),
h3("Gene positions"),
p("This plot shows the selected genes' distance to the telomeres \
across species. It visualizes how certain genes have \
evolutionary conserved positions."),
tabPanel(
"Positions",
plotlyOutput(
"scatter",
width = "100%",
height = "600px"
)
),
h3("Gene set enrichment analysis"),
tabPanel(
"Ranks",
plotlyOutput(
"rank_plot",
width = "100%",
height = "600px"
)
),
tabPanel(
"Analysis",
checkboxInput(
"enable_gost",
"Perform a gene set enrichment analysis on the filtered result \
genes."
"Perform a gene set enrichment analysis on the \
filtered result genes."
),
conditionalPanel(
"input.enable_gost == true",
@ -90,3 +97,5 @@ ui <- fluidPage(
)
)
)
)
)