Update overall style

R/style.R

@@ -2,25 +2,8 @@
 #' @noRd
 custom_css <- function() {
   tags$head(
-    tags$style(HTML(
-      ".nav-hidden { height: 0 }",
-      ".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;",
-      "}"
-    ))
+    tags$style(HTML(includeText(
+      system.file("content", "style.css", package = "ubigen")
+    )))
   )
 }

R/ui.R

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