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.
#' @noRd
ui <- function() {
div(
custom_css(),
navbarPage(
theme = bslib::bs_theme(
version = 5,
@ -8,7 +10,6 @@ ui <- function() {
primary = "#7d19bf"
),
title = "Ubigen",
header = custom_css(),
tabPanel(
"Explore",
sidebarLayout(
@ -22,9 +23,9 @@ ui <- function() {
verticalLayout(
strong("Expression across samples"),
paste0(
"Proportion samples in which the gene is expressed above the ",
"selected threshold. Select a method and a weight for the ",
"final score."
"Proportion samples in which the gene is expressed above ",
"the selected threshold. Select a method and a weight for ",
"the final score."
)
),
list(
@ -56,7 +57,10 @@ ui <- function() {
"sd_expression",
verticalLayout(
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,
max = 1.0,
@ -83,14 +87,15 @@ ui <- function() {
"Top genes",
value = "top_genes",
div(paste0(
"Hover over the markers to see details on each gene. Click or ",
"drag within the figure to select genes of interest."
"Hover over the markers to see details on each gene. Click ",
"or drag within the figure to select genes of interest."
)),
plotly::plotlyOutput("scores_plot"),
div(paste0(
"Click on gene names to view them using the GTEx website. ",
"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"),
DT::dataTableOutput("selected_genes")
@ -142,4 +147,5 @@ ui <- function() {
title = "Publication"
)
)
)
}