R/zzz.R

In Gedevan-Aleksizde/fontregisterer: Cross-platform Auto Font Registerer For R Graphics

#' load-time processing
.onAttach <- function(libname, pkgname){
  register_all_fonts()
  if(Sys.info()["sysname"] == "Windows"){
    funcname_fflist <- "names(windowsFonts())"
    packageStartupMessage(gettextf("You can see available font families by `%s`", funcname_fflist, domain = "R-fontregisterer"))
  } else if(Sys.info()["sysname"] == "Darwin"){
    funcname_fflist <- "names(quartzFonts())"
    packageStartupMessage(gettextf("You can see available font families by `%s`", funcname_fflist, domain = "R-fontregisterer"))
  } else {
    funcname_fflist <- "systemfonts::system_fonts()$family"
    packageStartupMessage("This package does not register any font when importing if your operating system is neither Mac nor Windows", domain = "R-fontregisterer")
    packageStartupMessage(gettextf("You can see available font families by `%s`", funcname_fflist, domain = "R-fontregisterer"))
  }
}