R/zzz.R

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

# from hrbrthemes
# https://github.com/hrbrmstr/hrbrthemes/blob/beae03c85edfc0f7a7553e6eb967aaf61dd36860/R/zzz.r#L1

is_testing <- function() {
  identical(Sys.getenv("TESTTHAT"), "true")
}

count_fonts <- function(){
  nrow(extrafont::fonttable())
}

.onAttach <- function(libname, pkgname) {

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

  fnt <- extrafont::fonttable()
  if(!"Contrail One" %in% fnt$FamilyName){
    packageStartupMessage("NOTE: Contrail One is required to use this package.")
    packageStartupMessage("      Please use lockeutils::import_contrail()")
  }

  if(!"Roboto Thin" %in% fnt$FamilyName){
    packageStartupMessage("NOTE: Roboto Thin is required to use this package.")
    packageStartupMessage("      Please use lockeutils::import_roboto()")
  }

  if(count_fonts() == 0 & interactive()) {
    switch(
      menu(c("Yes", "No"),
           title = "Do you want to index fonts using extrafont::font_import()?") + 1,
      cat("nothing Done\n"),
      extrafont::font_import(),
      "Not indexing"
    )
  }
} # nocov end