build-theme.R

# Description --------------------------------------------------------------------------------------
# This script builds ggplot2 and quarto themes from templates.

# Resources:
# https://quarto.org/docs/output-formats/html-themes.html#theme-options
# https://davidchall.github.io/jinjar/articles/template-syntax.html

# Setup --------------------------------------------------------------------------------------------
suppressPackageStartupMessages({
  # Data manipulation
  library(dplyr)
  library(tidyr)
  # FileIO
  library(fs)
  library(readr)
  # Templating
  library(jinjar)
})

# Define themes ------------------------------------------------------------------------------------
# The default minty theme
minty <- read_csv("meta-R/color-themes/minty.icsv", show_col_types = F)
fairyfloss <- read_csv("meta-R/color-themes/fairyfloss.icsv", show_col_types = F)

theme_to_use <- fairyfloss

# Build ggplot2 theme ------------------------------------------------------------------------------
read_lines("meta-R/templates/ggplot2-template.R") |> 
  paste0(collapse = "\n") |> 
  render(palette = theme_to_use) |> 
  write_lines("themes/improper-prior-ggtheme.R")

# Build observable theme ---------------------------------------------------------------------------
paste0('"', {theme_to_use$hex}, '"') |> 
  paste0(collapse = ",") %>% 
  paste0('{"scheme": [', ., ']}') |> 
  write_lines("themes/improper-prior-observable.json")

# Build quarto theme -------------------------------------------------------------------------------
read_lines("meta-R/templates/quarto-template.scss") |> 
  paste0(collapse = "\n") |> 
  render(palette = theme_to_use) |> 
  write_lines("themes/improper-prior.scss")