R/theme_wc.R

In dbarrows/emplot: wplot

#' Classic theme
#'
#' Similar to the default theme, but with larger serif font and no gridlines.
#'
#' @param base_size base font size
#' @param grid show grid lines
#' @param serif use serif font
#'
#' @return [`ggplot2::theme`] object
#' @export
theme_wc <- function(base_size = 10, grid = FALSE, serif = TRUE) {
    th <- theme_wl(base_size, grid, serif)
    update_all_geom_defaults(classic = TRUE)
    th
}