R/zzz.R

In hrbrmstr/ggexpanse: Theme Elements Based On 'The Expanse'

.onAttach <- function(libname, pkgname) {

  if (.Platform$OS.type == "windows")  { # nocov start
    if (interactive()) packageStartupMessage("Registering Windows fonts with R")
    extrafont::loadfonts("win", quiet = TRUE)
  }

  if (getOption("hrbrthemes.loadfonts", default = FALSE)) {
    if (interactive()) packageStartupMessage("Registering PDF & PostScript fonts with R")
    extrafont::loadfonts("pdf", quiet = TRUE)
    extrafont::loadfonts("postscript", quiet = TRUE)
  }

  fnt <- extrafont::fonttable()
  if (!any(grepl("otomole", fnt$FamilyName))) {
    packageStartupMessage(
      "NOTE: The 'Protomolecule' font is required to use this theme.\n",
      "      Please use ggexpanse::import_protomolecule() to install it."
    )
  } # nocov end

}