ubigen/R/style.R

#' Custom CSS to tweak the rendering.
#' @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;",
      "}"
    ))
  )
}