data-raw/data.R

In JosiahParry/cpcinema: Extract Color Palettes from \@colorpalette.cinema.

read_color_pal <- function(fp) {
  raw_json <- jsonlite::read_json(fp)
  jsonlite::fromJSON(raw_json[[1]]) %>% 
    purrr::map(cpcinema::color_palette, n= 10)
  
}

available_pals <- list.files("data-raw/historic-pals", full.names = TRUE) %>% 
  purrr::map(read_color_pal) %>% 
  purrr::flatten()


volcano_df <- as.data.frame(volcano) %>% 
  mutate(id = row_number()) %>% 
  tidyr::gather(y, z, -id) %>% 
  mutate(y = as.numeric(str_remove(y, "V")))

usethis::use_data(available_pals, volcano_df, overwrite = TRUE)