Tools for getting and restoring global state — thematic_with

These functions are helpful for getting and/or temporarily activating a thematic_theme().

thematic_with_theme(theme, expr)

thematic_local_theme(theme, .local_envir = parent.frame())

thematic_set_theme(theme)

thematic_get_theme(resolve = TRUE)

thematic_get_option(name = "", default = NULL, resolve = TRUE)

thematic_get_mixture(amounts = 0.5, default = NULL)

Arguments

theme: a thematic_theme() object (or a return value of thematic_on/thematic_get_theme()) or NULL (in which case thematic_off() is called).
expr: R code that produces a plot.
.local_envir: The environment to use for scoping.
resolve: whether or not 'auto' values should be resolved before returning
name: a theme element name (e.g., fg, bg, etc.)
default: a default value to return in the event no thematic theme is active.
amounts: value(s) between 0 and 1 specifying how much to mix bg (0) and fg (1).

Value

the result of expr.

Functions

thematic_with_theme(): similar to thematic_on(), but for an single plot.
thematic_local_theme(): similar to thematic_with_theme(), but de-couples the theme from the plot expression.
thematic_set_theme(): set a given theme object as the current theme.
thematic_get_theme(): obtain the current theme.
thematic_get_option(): obtain a particular theme option (and provide a default if no theme is active).
thematic_get_mixture(): obtain a mixture of the current theme's bg and fg.

Examples


# Use thematic_with_theme() for a one-time use of thematic
thematic_with_theme(
  thematic_theme("darkblue", "skyblue", accent = "red"),
  plot(1:10, col = thematic_get_option("accent"), pch = 19)
)


# Use thematic_set_theme() if doing something more complicated
# like programming on top thematic (without causing side effects)
my_plot <- function(expr, las = 3, ...) {
  old_theme <- thematic_on("black", "white")
  on.exit(thematic_set_theme(old_theme), add = TRUE)
  opts <- par(las = las)
  on.exit(par(opts), add = TRUE)
  # Imagine some more customization with ...
  force(expr)
}
my_plot(plot(1:10))


thematic_off()
thematic_get_option("bg", "white")
#> [1] "white"
thematic_on(bg = "red")
thematic_get_option("bg", "white")
#> Warning: thematic was unable to resolve `fg='auto'`. Try providing an actual color (or `NA`) to the `fg` argument of `thematic_on()`. By the way, 'auto' is only officially supported in `shiny::renderPlot()`, some rmarkdown scenarios (specifically, `html_document()` with `theme!=NULL`), in RStudio, or if `auto_config_set()` is used.
#> [1] "red"
thematic_off()

thematic_with_theme(
  thematic_theme("darkblue", "skyblue"),
  scales::show_col(thematic_get_mixture(seq(0, 1, by = 0.1)))
)