theme_afbi.R

# The main theme - what can you add?
theme_afbi <- function(base_text_size = 16) {
  theme_minimal(base_size = base_text_size) +
    theme(
      text = element_text(family = "Open Sans", colour = "#30373b"),
      axis.text = element_text(family = "Open Sans", colour = "#30373b"),
      axis.title = element_text(family = "Open Sans", colour = "#30373b"),
      plot.margin = margin_auto(
        base_text_size * 1.5
      ),
      plot.title = element_text(
        family = "Open Sans",
        size = rel(1.6),
        colour = "#30373b",
        face = "bold",
        margin = margin(base_text_size * .75, 0, base_text_size * .75, 0)
      ),
      plot.subtitle = marquee::element_marquee(
        width = 1,
        lineheight = 1.2,
        family = "Open Sans",
        colour = "#30373b",
        size = rel(1.1),
        margin = margin(b = 12)
      ),
      plot.background = element_rect(fill = "#EEF4F6", colour = "#EEF4F6"),
      panel.grid = element_line(colour = "white"),
      legend.text = element_text(family = "Open Sans", colour = "#30373b"),
      legend.title = element_text(
        family = "Open Sans",
        colour = "#30373b",
        face = "bold"
      )
    )
}

# Tooltip styling
afbi_tooltip_css <- "background-color:#30373b;color:#EEF4F6;padding:7.5px;letter-spacing:0.025em;line-height:1.3;border-radius:5px;font-family:Open Sans;"