R/utils.R

In lockedata/lockeutils: Provides Support for Consistent Plotting and Reporting

# from hrbrthemes
# https://github.com/hrbrmstr/hrbrthemes/blob/beae03c85edfc0f7a7553e6eb967aaf61dd36860/R/roboto-condensed.r#L183
#' @title Import Roboto fonts
#'
#' @export
import_roboto <- function() {

  rb_font_dir <- system.file("fonts", "roboto",
                             package = "lockeutils")

  suppressWarnings(suppressMessages(extrafont::font_import(rb_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]",
      rb_font_dir)
  )

}

#' @title Import Contrail One font
#'
#' @export
import_contrail <- function() {

  rb_font_dir <- system.file("fonts", "contrail",
                             package = "lockeutils")

  suppressWarnings(suppressMessages(extrafont::font_import(rb_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]",
      rb_font_dir)
  )

}