R/font_dataedu.R

In data-edu/dataedu: Package for Data Science in Education Using R

#' Font for Data Science in Education
#'
#' Font for Data Science in Education
#'
#' @importFrom sysfonts font_add
#' @importFrom showtext showtext_auto
#' @importFrom proto proto

cabinproto <- proto::proto(expr={
  get_path <- function() {
    font_folder <- "fonts"
    system.file(font_folder, package = "dataedu")
  }
  list_fonts <- function() {
    list.files(get_path())
  }
  load_font <- function(., font) {
    wd <- getwd()
    font_path <- get_path()
    setwd(font_path)
    if (!file.exists(font)) {
      setwd(wd)
      stop("font doesn't exist...")
    }
    sysfonts::font_add(family = sub("\\..*", "", font),
                       regular = font)
    showtext::showtext_auto()
    setwd(wd)
  }
})

#' Load Cabin Font
#'
#'
#' @title load.cabin
#' @param font Cabin
#' @return NULL
#' @export
load.cabin <- function(font = "Cabin.ttf") {
  cabinproto$load_font(font = font)
}