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

ui: Move custom css to toplevel div

Browse source
This commit is contained in:
Elias Projahn 2022-06-22 13:57:20 +02:00
parent 03516d9cc8
commit 51c4847949
1 changed files with 139 additions and 133 deletions
Download patch file Download diff file Expand all files Collapse all files

22
R/ui.R
View file

@ -1,6 +1,8 @@
#' Function for creating the main user interface. #' Function for creating the main user interface.
#' @noRd #' @noRd
ui <- function() { ui <- function() {
div(
custom_css(),
navbarPage( navbarPage(
theme = bslib::bs_theme( theme = bslib::bs_theme(
version = 5, version = 5,
@ -8,7 +10,6 @@ ui <- function() {
primary = "#7d19bf" primary = "#7d19bf"
), ),
title = "Ubigen", title = "Ubigen",
header = custom_css(),
tabPanel( tabPanel(
"Explore", "Explore",
sidebarLayout( sidebarLayout(
@ -22,9 +23,9 @@ ui <- function() {
verticalLayout( verticalLayout(
strong("Expression across samples"), strong("Expression across samples"),
paste0( paste0(
"Proportion samples in which the gene is expressed above the ", "Proportion samples in which the gene is expressed above ",
"selected threshold. Select a method and a weight for the ", "the selected threshold. Select a method and a weight for ",
"final score." "the final score."
) )
), ),
list( list(
@ -56,7 +57,10 @@ ui <- function() {
"sd_expression", "sd_expression",
verticalLayout( verticalLayout(
strong("Standard deviation"), strong("Standard deviation"),
"Standard deviation of the gene's expression across all samples." paste0(
"Standard deviation of the gene's expression across all ",
"samples."
)
), ),
min = -1.0, min = -1.0,
max = 1.0, max = 1.0,
@ -83,14 +87,15 @@ ui <- function() {
"Top genes", "Top genes",
value = "top_genes", value = "top_genes",
div(paste0( div(paste0(
"Hover over the markers to see details on each gene. Click or ", "Hover over the markers to see details on each gene. Click ",
"drag within the figure to select genes of interest." "or drag within the figure to select genes of interest."
)), )),
plotly::plotlyOutput("scores_plot"), plotly::plotlyOutput("scores_plot"),
div(paste0( div(paste0(
"Click on gene names to view them using the GTEx website. ", "Click on gene names to view them using the GTEx website. ",
"There, you can see the tissue specific expression behavior ", "There, you can see the tissue specific expression behavior ",
"derived from the samples that this analysis is also based on." "derived from the samples that this analysis is also based ",
"on."
)), )),
div(class = "p-1"), div(class = "p-1"),
DT::dataTableOutput("selected_genes") DT::dataTableOutput("selected_genes")
@ -142,4 +147,5 @@ ui <- function() {
title = "Publication" title = "Publication"
) )
) )
)
} }