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.
79 lines
2.6 KiB
79 lines
2.6 KiB
3 years ago
|
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")
|
||
|
|
}
|