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.

78 lines
2.6 KiB

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")
}