docs: nice colourbars via unsupported hack

[davidhodge931]

No description provided.

[davidhodge931]

# for use with col_breaks = \(x) x, theme = light_mode_r(),
theme_colourbar_r <- function(
    legend_key_width = ggplot2::rel(1),
    legend_key_height = ggplot2::rel(1.5)
  ) {
  rlang::list2(
    theme(legend.text = element_text(vjust = c(0, 1))), #unsupported hack
    theme(legend.key.width = legend_key_width),
    theme(legend.key.height = legend_key_height),
    theme(legend.ticks = element_line(colour = "transparent"))
  )
}

# for use with col_breaks = \(x) x, theme = light_mode_t(),
theme_colourbar_t <- function(
    legend_key_width = ggplot2::rel(1.66),
    legend_key_height = ggplot2::rel(0.9)
) {
  rlang::list2(
    theme(legend.text = element_text(hjust = c(0, 1))), #unsupported hack
    theme(legend.key.width = legend_key_width),
    theme(legend.key.height = legend_key_height),
    theme(legend.ticks = element_line(colour = "transparent"))
  )
}

[davidhodge931]