# Create palette in temporary directory:
temp_dir <- file.path(tempdir(), "palettes")
create_palette(
"blues",
"sequential",
c("#deebf7", "#9ecae1", "#3182bd"),
color_dir = temp_dir
)
create_palette(
"vividset",
"qualitative",
c("#E64B35", "#4DBBD5", "#00A087"),
color_dir = temp_dir
)
# Clean up
unlink(temp_dir, recursive = TRUE)
Run the code above in your browser using DataLab