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

Update overall style

Browse source
This commit is contained in:
Elias Projahn 2022-12-16 11:44:32 +01:00
parent 373238b4bc
commit c6116d363c
3 changed files with 39 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

23
R/style.R
View file

@ -2,25 +2,8 @@
#' @noRd #' @noRd
custom_css <- function() { custom_css <- function() {
tags$head( tags$head(
tags$style(HTML( tags$style(HTML(includeText(
".nav-hidden { height: 0 }", system.file("content", "style.css", package = "ubigen")
".flow-layout > div {", )))
" display: inline-block;",
" vertical-align: top;",
" margin-right: 12px;",
"}",
".container h2, .container h3 {",
" margin-top: 64px;",
"}",
"",
".container table {",
" margin-top: 32px;",
" margin-bottom: 32px;",
"}",
"",
".container th, .container td {",
" padding: 4px;",
"}"
))
) )
} }

4
R/ui.R
View file

@ -16,9 +16,9 @@ ui <- function(custom_dataset = NULL) {
sidebarLayout( sidebarLayout(
sidebarPanel( sidebarPanel(
width = 3, width = 3,
h3("Your genes"), h5("Your genes"),
gene_selector_ui("custom_genes"), gene_selector_ui("custom_genes"),
h3("Method"), h5("Method"),
selectInput( selectInput(
"dataset", "dataset",
label = strong("Expression dataset"), label = strong("Expression dataset"),

34
inst/content/style.css Normal file
View file

@ -0,0 +1,34 @@
.nav-hidden {
height: 0
}
h5 {
margin-top: 0.5rem;
margin-bottom: 1rem;
font-weight: bold;
}
.navbar-brand {
font-weight: bold;
}
.flow-layout>div {
display: inline-block;
vertical-align: top;
margin-right: 12px;
}
.container h2,
.container h3 {
margin-top: 64px;
}
.container table {
margin-top: 32px;
margin-bottom: 32px;
}
.container th,
.container td {
padding: 4px;
}