# NOT RUN {
require("tidyverse")
canva_df <- map_df(canva_palette, names(canva_palette),
~ tible(color = .x, .id = seq_along(color), palette = .y))
ggplot(canva_df, aes(y = palette, x = .id, fill = color)) +
geom_raster() +
scale_fill_identity(guide = FALSE) +
theme_minimal() +
theme(panel.grid= element_blank(),
axis.text.x = element_blank()) +
labs(x = "", y = "")
# }
Run the code above in your browser using DataLab