install_font <- function(family_name, sub_dir) { loc <- system.file("fonts", sub_dir, package = "hrbragg") if (platform() == "mac") { font_library <- path.expand("~/Library/Fonts") if (!dir.exists(font_library)) { dir.create(font_library, showWarnings = TRUE, mode = "0700") } message("Copying ", family_name, " to ", font_library) file.copy( from = list.files(path = loc, full.names = TRUE), to = font_library ) -> res } else { message( "The ", family_name, " font files are in:\n", system.file("fonts", sub_dir, package = "hrbragg"), "\nand should be installed on your system. Future versions ", "of {hrbragg} will not force this requirement but it is very", "likely you'll be using this font outside of R graphics devices", "so it does make a bit of sense to have them outside of the R", "package library directory." ) } } # #' Install Goldman Sans (Condensed) # #' # #' Goldman Sans is a clean, modern typeface designed for dense data-rich # #' environments. From open letter shapes, enlarged x-height, and optical # #' balancing of individual letterforms, we designed Goldman Sans with # #' clarity in mind. Both normal and condensed versions are provided. # #' # #' @export # # install_goldman_sans <- function() { # install_font("Goldman Sans (Condensed)", "goldman-sans") # } # #' Install Roboto Condensed # #' # #' Roboto has a dual nature. It has a mechanical skeleton and the forms are # #' largely geometric. At the same time, the font features friendly and open # #' curves. While some grotesks distort their letterforms to force a rigid rhythm, # #' Roboto doesn’t compromise, allowing letters to be settled into their natural # #' width. This makes for a more natural reading rhythm more commonly found in # #' humanist and serif types. # #' # #' @note [Apache License, Version 2.0.](http://www.apache.org/licenses/LICENSE-2.0) # #' @export # install_roboto_condensed <- function() { # install_font("Roboto Condensed", "roboto-condensed") # } #' Install Inter #' #' Inter is a typeface carefully crafted & designed for computer screens and #' features a tall x-height to aid in readability of mixed-case and lower-case #' text. Several OpenType features are provided as well, like contextual #' alternates that adjusts punctuation depending on the shape of surrounding #' glyphs, slashed zero for when you need to disambiguate "0" from "o", #' tabular numbers, etc. #' #' #' @note [SIL Open Font License 1.1](https://choosealicense.com/licenses/ofl-1.1/) #' @references [Inter](https://rsms.me/inter/) #' @export install_inter <- function() { install_font("Inter", "inter") }