geposanui/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;",
      "}",
      ".shiny-input-container { width: auto !important; min-width: 200px; }"
    ))
  )
}