From c6bc17e60de23a887262ddb3f8f486d58ac1844f Mon Sep 17 00:00:00 2001 From: Winston Chang Date: Wed, 29 Aug 2012 10:03:15 -0700 Subject: [PATCH] Change default theme font from Helvetica back to "" This fixes warnings on computers without Helvetica --- R/theme-defaults.r | 4 ++-- man/theme_bw.Rd | 2 +- man/theme_grey.Rd | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/theme-defaults.r b/R/theme-defaults.r index 007eac1421..b047070278 100644 --- a/R/theme-defaults.r +++ b/R/theme-defaults.r @@ -4,7 +4,7 @@ #' @param base_family base font family #' @aliases theme_gray theme_grey #' @export theme_gray theme_grey -theme_grey <- function(base_size = 12, base_family = "Helvetica") { +theme_grey <- function(base_size = 12, base_family = "") { theme( # Elements in this first block aren't used directly, but are inherited # by others @@ -66,7 +66,7 @@ theme_gray <- theme_grey #' @param base_size base font size #' @param base_family base font family #' @export -theme_bw <- function(base_size = 12, base_family = "Helvetica") { +theme_bw <- function(base_size = 12, base_family = "") { # Starts with theme_grey and then modify some parts theme_grey(base_size = base_size, base_family = base_family) %+replace% theme( diff --git a/man/theme_bw.Rd b/man/theme_bw.Rd index 45d8ed1293..06365afb23 100644 --- a/man/theme_bw.Rd +++ b/man/theme_bw.Rd @@ -2,7 +2,7 @@ \alias{theme_bw} \title{A theme with white background and black gridlines.} \usage{ - theme_bw(base_size = 12, base_family = "Helvetica") + theme_bw(base_size = 12, base_family = "") } \arguments{ \item{base_size}{base font size} diff --git a/man/theme_grey.Rd b/man/theme_grey.Rd index 1790f2175e..be3fa2d5fa 100644 --- a/man/theme_grey.Rd +++ b/man/theme_grey.Rd @@ -3,7 +3,7 @@ \alias{theme_grey} \title{A theme with grey background and white gridlines.} \usage{ - theme_grey(base_size = 12, base_family = "Helvetica") + theme_grey(base_size = 12, base_family = "") } \arguments{ \item{base_size}{base font size}