|
|
@ -16,7 +16,19 @@ state_tbl <- setNames(toupper(state.abb), tolower(state.name)) |
|
|
|
#' the font on your system |
|
|
|
#' @export |
|
|
|
show_stateface <- function() { |
|
|
|
system.file("fonts/", package="ggalt") |
|
|
|
|
|
|
|
path = normalizePath(file.path(system.file("fonts/", package="ggalt"))) |
|
|
|
|
|
|
|
print(path) |
|
|
|
|
|
|
|
if (.Platform$OS.type == "windows") { |
|
|
|
shell(sprintf("explorer %s", path), intern=TRUE) |
|
|
|
} else if(.Platform$OS.type == "unix") { |
|
|
|
if (Sys.info()["sysname"] == "Darwin") { |
|
|
|
system2("open", path) |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
#' Load stateface font |
|
|
@ -33,6 +45,18 @@ load_stateface <- function() { |
|
|
|
|
|
|
|
#' Use ProPublica's StateFace font in ggplot2 plots |
|
|
|
#' |
|
|
|
#' The \code{label} parameter can be either a 2-letter state abbreviation |
|
|
|
#' or a full state name. \code{geom_stateface()} will take care of the |
|
|
|
#' translation to StateFace font glyph characters. |
|
|
|
#' |
|
|
|
#' The package will also take care of loading the StateFace font for |
|
|
|
#' PDF and other devices, but to use it with the on-screen ggplot2 |
|
|
|
#' device, you'll need to install the font on your system. |
|
|
|
#' |
|
|
|
#' \code{ggalt} ships with a copy of the StateFace TTF font. You can |
|
|
|
#' run \code{show_stateface()} to get the filesystem location and then |
|
|
|
#' load the font manually from there. |
|
|
|
#' |
|
|
|
#' @inheritParams ggplot2::geom_text |
|
|
|
#' @export |
|
|
|
geom_stateface <- function(mapping = NULL, data = NULL, stat = "identity", |
|
|
|