R/plot_theme.R

In actxps: Create Actuarial Experience Studies: Prepare Data, Summarize Results, and Create Reports

#' Plotting theme for vignettes
#'
#' This is an internal function used to set a plotting theme in vignettes
#' and articles.
#'
#' @return No return value. This function is called for its side effects.
#' @noRd
set_actxps_plot_theme <- function() {
  ggplot2::theme_set(
    ggplot2::theme_light() +
      ggplot2::theme(
        strip.background = ggplot2::element_rect(
          fill = "#1367D4"
        )
      )
  )
  if (rlang::is_installed("thematic")) {
    thematic::thematic_on(
      qualitative = c(
        "#1367D4",
        "#7515EB",
        "#EB15E4",
        "#1AC4F2",
        "#1FF2C1",
        "#C6E531",
        "#FFA13D",
        "#FF7647"
      )
    )
  }
}