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, 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%"
) )
) )
}) })

83
ui.R
View file

@ -48,43 +48,52 @@ 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",
), textOutput("synposis"),
h3("Results"), div(
textOutput("synposis"), style = "margin-top: 16px",
div( uiOutput("copy")
style = "margin-top: 16px", ),
uiOutput("copy") div(
), style = "margin-top: 16px",
div( DTOutput("genes", height = "1000px")
style = "margin-top: 16px", )
DTOutput("genes") ),
), tabPanel(
h3("Gene positions"), "Positions",
p("This plot shows the selected genes' distance to the telomeres \ plotlyOutput(
across species. It visualizes how certain genes have \ "scatter",
evolutionary conserved positions."), width = "100%",
plotlyOutput( height = "600px"
"scatter", )
width = "100%", ),
height = "600px" tabPanel(
), "Ranks",
h3("Gene set enrichment analysis"), plotlyOutput(
checkboxInput( "rank_plot",
"enable_gost", width = "100%",
"Perform a gene set enrichment analysis on the filtered result \ height = "600px"
genes." )
), ),
conditionalPanel( tabPanel(
"input.enable_gost == true", "Analysis",
plotlyOutput( checkboxInput(
"gost", "enable_gost",
width = "100%", "Perform a gene set enrichment analysis on the \
height = "600px" filtered result genes."
),
conditionalPanel(
"input.enable_gost == true",
plotlyOutput(
"gost",
width = "100%",
height = "600px"
)
)
) )
) )
) )