Browse Source

show_stateface() opens explorer/finder now

pull/6/head
Bob Rudis 8 years ago
parent
commit
e38e1567de
  1. 26
      R/stateface.r
  2. 13
      man/geom_stateface.Rd

26
R/stateface.r

@ -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",

13
man/geom_stateface.Rd

@ -62,6 +62,17 @@ that define both data and aesthetics and shouldn't inherit behaviour from
the default plot specification, e.g. \code{\link{borders}}.}
}
\description{
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.
}
\details{
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.
}

Loading…
Cancel
Save