data-raw/build.R

In csdaw/ggprism: A 'ggplot2' Extension Inspired by 'GraphPad Prism'

suppressPackageStartupMessages({
  library("purrr")
  library("tibble")
  library("rlang")
  library("here")
  library("yaml")
})

ggprism_data <- new_environment()

load_themes <- function() {
  out <- yaml.load_file(here("data-raw", "themes.yml"))

  map(out, ~ map_dfr(., as_tibble))
}
ggprism_data$themes <- load_themes()

# include ggplot2 theme_all_null
ggprism_data$themes[["all_null"]] <- ggplot2:::ggplot_global$theme_all_null


load_fill_palettes <- function() {
  out <- yaml.load_file(here("data-raw", "fill-palettes.yml"))

  out
}
ggprism_data$fill_palettes <- load_fill_palettes()

load_colour_palettes <- function() {
  out <- yaml.load_file(here("data-raw", "colour-palettes.yml"))

  out
}
ggprism_data$colour_palettes <- load_colour_palettes()


load_shape_palettes <- function() {
  out <- yaml.load_file(here("data-raw", "shape-palettes.yml"))

  map(out, ~ map_dfr(., as_tibble))
}
ggprism_data$shape_palettes <- load_shape_palettes()


# save to rda
ggprism_data <- as.list(ggprism_data)

usethis::use_data(ggprism_data, overwrite = TRUE)