data-raw/generate_data.R

In aljrico/harrypotter: Palettes Generated from All "Harry Potter" Movies

library(tidyverse)

map <- list()

# Define Palettes
hp_palettes <- list(
	slytherin = c("#C2C5C0", "#A6B39C", "#8BA27C", "#6A915F", "#4C7F46", "#316E31", "#1F5D25"),
	gryffindor = c("#5C0000", "#890000", "#C50000", "#FB7E00", "#FFA700"),
	gryffindor2 = c("#5f1416", "#803525", "#a05535", "#bf7746", "#dc9b5a"),
	hufflepuff = c("#000000", "#372E29", "#726255", "#F0C75E", "#ECB939"),
	ravenclaw2 = c("#0D6585", "#089EC7", "#BA9368", "#735145", "#2B1C13"),
	lunalovegood = c("#084D49", "#276C69", "#189BA0", "#73C1C4", "#BF8699", "#A64264", "#830042"),
	hermionegranger = c("#660012", "#99172C", "#CC2945", "#CC4752", "#E65E51", "#E67551", "#E59950"),
	mischief = c("#E7E3AF", "#CCAB6F", "#7D5535", "#662F19", "#761919"),
	sprout = c("#76653B", "#F2ED70", "#C0E05E", "#95C34E", "#7B9948"),
	always = c("#CAF2C2", "#98D9A8", "#69B6A3", "#428185", "#1E3C58", "#202B40", "#1E1E32"),
	ravenclaw = c("#006699", "#1B80B3", "#41A6D9", "#98C2D9", "#D9AC82", "#D97C21", "#B35900"),
	harrypotter = c("#99000D", "#B32C12", "#B36C24", "#B3B336", "#92B351", "#8EB374", "#99CC8F"),
	dracomalfoy = c("#00332A", "#004D33", "#0F6642", "#3F8C52", "#77B36B", "#D9D962", "#F2F26D"),
	newtscamander = c("#FEDA26", "#CCB233", "#CCBE7A", "#D9D2AD", "#6CB6D9", "#3091BF", "#0072A6"),
	ronweasley = c("#6D0036", "#860000", "#860000", "#852E19", "#CE8B14", "#EA9400", "#FFA000"),
	ronweasley2 = c('#5F0032', '#3F385A', '#6E6E82', '#FFAA00', '#FF7A33')
)


# Expand palette to accept contiuous scales or longer discrete scales
complete_palette <- function(option, n = 3e3) {
	complete_col <- c()
	for (i in 1:(length(option) - 1)) {
		cols <- colorRampPalette(c(option[i], option[i + 1]))
		complete_col <- c(complete_col, cols(n))
	}
	return(complete_col)
}

# Build DF map
make_map <- function(palettes, option_name) {
	palettes[[option_name]] %>%
		complete_palette() %>%
		grDevices::col2rgb() %>%
		t() %>%
		as.data.frame() %>%
		dplyr::rename(V1 = red) %>%
		dplyr::rename(V2 = green) %>%
		dplyr::rename(V3 = blue) %>%
		dplyr::mutate(option = option_name)
}

for (h in names(hp_palettes)) {
	df <- make_map(hp_palettes, h)
	map <- rbind(map, df)
}

hp.map <- map
usethis::use_data(hp.map, internal = TRUE, overwrite = TRUE)
usethis::use_data(hp_palettes, overwrite = TRUE)