johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 19:27: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, rownames = FALSE,
colnames = column_names, colnames = column_names,
style = "bootstrap", style = "bootstrap",
fillContainer = TRUE,
extensions = "Scroller", extensions = "Scroller",
options = list( options = list(
rowCallback = js_link, rowCallback = js_link,
@ -137,19 +138,18 @@ server <- function(input, output) {
names_text <- paste(names, collapse = "\n") names_text <- paste(names, collapse = "\n")
splitLayout( splitLayout(
cellWidths = "auto",
rclipButton( rclipButton(
"copy_ids_button", "copy_ids_button",
"Copy gene IDs", "Copy gene IDs",
genes_text, genes_text,
icon = icon("clipboard"), icon = icon("clipboard")
width = "100%"
), ),
rclipButton( rclipButton(
"copy_names_button", "copy_names_button",
"Copy gene names", "Copy gene names",
names_text, names_text,
icon = icon("clipboard"), icon = icon("clipboard")
width = "100%"
) )
) )
}) })

39
ui.R
View file

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