R/maven_pro.R

In PMassicotte/ggpmthemes: Personal Themes for ggplot2

#' A ggplot2 theme based on the Google Maven Pro font.
#'
#' @param base_size Font size. Default at 12 pts.
#' @param base_family Font family. Default is "Maven Pro"
#' @param base_line_size Base line size
#' @param base_rect_size Base rect size
#' @import ggplot2
#'
#' @inheritParams ggplot2::theme_light
#'
#' @export
#'
theme_maven <-
  function(base_size = 12, base_family = "Maven Pro",
           base_line_size = base_size / 22,
           base_rect_size = base_size / 22) {
    theme_light_modified(base_size, base_family, base_line_size, base_rect_size)
  }


#' Import Google Maven Pro font
#' @export
import_mavenpro <- function() {
  ps_font_dir <- system.file("fonts", "maven_pro", package = "ggpmthemes")

  suppressWarnings(suppressMessages(extrafont::font_import(ps_font_dir, prompt = FALSE)))

  message(
    sprintf(
      "You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
      ps_font_dir
    )
  )
}