You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
1.1 KiB
29 lines
1.1 KiB
#' Import Protomolecule font for use in charts
|
|
#'
|
|
#' Roboto Condensed is a trademark of Google.
|
|
#'
|
|
#' There is an option `hrbrthemes.loadfonts` which -- if set to `TRUE` -- will
|
|
#' call `extrafont::loadfonts()` to register non-core fonts with R PDF & PostScript
|
|
#' devices. If you are running under Windows, the package calls the same function
|
|
#' to register non-core fonts with the Windows graphics device.
|
|
#'
|
|
#' @md
|
|
#' @note This will take care of ensuring PDF/PostScript usage. The location of the
|
|
#' font directory is displayed after the base import is complete. It is highly
|
|
#' recommended that you install them on your system the same way you would any
|
|
#' other font you wish to use in other programs.
|
|
#' @export
|
|
import_protomolecule <- function() {
|
|
|
|
exp_font_dir <- system.file("fonts", "protomolecule", package="ggexpanse")
|
|
|
|
suppressWarnings(suppressMessages(extrafont::font_import(exp_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]",
|
|
exp_font_dir
|
|
)
|
|
)
|
|
|
|
}
|
|
|