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

Improve gene results tables

Browse source
This commit is contained in:
Elias Projahn 2022-08-22 16:22:17 +02:00
parent e621761fd6
commit c97ee1ca30
4 changed files with 119 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/ui.R
View file

@ -3,6 +3,7 @@
ui <- function() {
div(
custom_css(),
rclipboard::rclipboardSetup(),
navbarPage(
theme = bslib::bs_theme(
version = 5,
@ -81,7 +82,7 @@ ui <- function() {
htmlOutput("custom_genes_synopsis"),
plotly::plotlyOutput("custom_genes_boxplot"),
div(class = "p-1"),
DT::dataTableOutput("custom_genes_details")
genes_table_ui("custom_genes")
),
tabPanel(
"Top genes",
@ -91,6 +92,7 @@ ui <- function() {
"or drag within the figure to select genes of interest."
)),
plotly::plotlyOutput("scores_plot"),
div(class = "p-1"),
div(paste0(
"Click on gene names to view them using the GTEx website. ",
"There, you can see the tissue specific expression behavior ",
@ -98,7 +100,7 @@ ui <- function() {
"on."
)),
div(class = "p-1"),
DT::dataTableOutput("selected_genes")
genes_table_ui("selected_genes")
),
tabPanel(
"GSEA",