R/theme_grattan_normal.R

In grattan/grattantheme: Create Graphs in the Grattan Institute Style

# This function is called by `theme_grattan` but is not exported.

theme_grattan_normal <- function(base_size = 18,
                                 base_family = "sans",
                                 flipped = FALSE,
                                 background = "white",
                                 legend = "none",
                                 panel_borders = FALSE) {
  ret <- theme_grattan_base(
    base_size = base_size,
    base_family = base_family,
    background = background,
    legend = legend,
    panel_borders = panel_borders
  )


  # reverse when flipped = TRUE; only if type = 'normal'
  if (isTRUE(flipped)) {
    ret <- ret %+replace%
      ggplot2::theme(
        panel.grid.major.y = ggplot2::element_blank(),
        axis.line.x = ggplot2::element_blank(),
        axis.ticks.x = ggplot2::element_blank(),
        axis.title.y = ggplot2::element_blank()
      )
  } else {
    ret <- ret %+replace%
      ggplot2::theme(
        axis.line.y = ggplot2::element_blank(),
        axis.ticks.y = ggplot2::element_blank(),
        axis.title.y = ggplot2::element_blank(),
        panel.grid.major.x = ggplot2::element_blank()
      )
  }

  ret

}