52 lines
2.1 KiB
Plaintext
Raw Normal View History

2025-01-12 00:52:51 +08:00
---
title: "Theming with bslib and thematic"
output:
html_document:
code_folding: show
theme:
bg: "#202123"
fg: "#B8BCC2"
primary: "#EA80FC"
secondary: "#00DAC6"
base_font:
google: Prompt
heading_font:
google: Proza Libre
---
```{r setup, include=FALSE}
if (requireNamespace("thematic"))
thematic::thematic_rmd(font = "auto")
```
## R Markdown
This is an R Markdown document themed with [`{bslib}` package](https://rstudio.github.io/bslib/). `{bslib}` makes it easy to customize the main colors and fonts of a `html_document`, [`flexdashboard::flex_dashboard`](https://flexdashboard-pkg.netlify.app/articles/articles/theme.html), [shiny::fluidPage()](https://shiny.rstudio.com/reference/shiny/latest/fluidPage.html), or more generally any website that uses [Bootstrap](https://getbootstrap.com/) for styling. The `theme` parameter in the yaml front-matter of this Rmd document describes a [`bslib::bs_theme()`](https://rstudio.github.io/bslib/reference/bs_theme.html) object, which provides access to 100s of [theming options](https://rstudio.github.io/bslib/articles/bs5-variables.html) (via its `...` argument) in addition to the main options demonstrated here (e.g., `bg`, `fg`, `primary`, etc).
This particular example uses `{bslib}`'s default [Bootstrap version (which, at the time of writing, is Bootstrap 5)](https://rstudio.github.io/bslib/articles/bslib.html#versions). However, if reproducibility is important, it's recommended that you "lock-in" the version by adding `version: 5` to the `theme` definition.
## Themed Plots {.tabset .tabset-pills}
When running this document with [`{thematic}`](https://rstudio.github.io/thematic/) installed, the `thematic::thematic_rmd(font = "auto")` effectively translates `theme` (CSS) settings to new global theming defaults for `{ggplot2}`, `{lattice}`, and `{base}` R graphics:
### ggplot2
```{r}
library(ggplot2)
ggplot(mpg, aes(displ, hwy)) +
geom_point() + geom_smooth()
```
### lattice
```{r}
lattice::show.settings()
```
### base
```{r}
plot(pressure, col = thematic::thematic_get_option("accent"))
```