@@ -39,14 +39,13 @@ album_palettes <- lapply(list(david_bowie = c('#2C3123', '#7AD2D9', '#EAD4AD', '
3939 black_tie_white_noise = c(' #1C172E' , ' #9A170E' , ' #D5B7A3' , ' #99817B' , ' #584F59' ),
4040 the_buddha_of_suburbia = c(' #2B2C1D' , ' #697572' , ' #99A2A8' , ' #CBD8E5' , ' #2A4B58' ),
4141 outside = c(' #363A32' , ' #796157' , ' #C9BAA7' , ' #ECE6D1' , ' #9D9282' ),
42- earthling = c(' #272D34' , ' #A53B2B' , ' #B29467' , ' #467CB0' , ' #3C6F33' ), color_palette )
43- # hours = c("#000", "#000", "#000", "#000", "#000"),
44- # heathen = c("#000", "#000", "#000", "#000", "#000"),
45- # reality = c("#000", "#000", "#000", "#000", "#000"),
46- # the_next_day = c("#000", "#000", "#000", "#000", "#000"),
47- # blackstar = c("#000", "#000", "#000", "#000", "#000"),
48- # toy = c("#000", "#000", "#000", "#000", "#000")
49- # ), color_palette)
42+ earthling = c(' #272D34' , ' #A53B2B' , ' #B29467' , ' #467CB0' , ' #3C6F33' ),
43+ hours = c(' #343951' , ' #B4614B' , ' #C6D9E3' , ' #94AFC9' , ' #4F849C' ),
44+ heathen = c(' #232217' , ' #E17E2C' , ' #DBCBB1' , ' #948870' , ' #5E533F' ),
45+ reality = c(' #2B2121' , ' #6C7A76' , ' #E6E3D6' , ' #C0AE8D' , ' #C03F2F' ),
46+ the_next_day = c(' #191617' , ' #525151' , ' #EDEDED' , ' #B8B7B7' , ' #848283' ),
47+ blackstar = c(' #181818' , ' #7D7D7D' , ' #B0B0B0' , ' #E5E5E5' , ' #4A4A4A' ),
48+ toy = c(' #60605C' , ' #7E7A75' , ' #ECEDE9' , ' #C3CBBE' , ' #9DA09B' ), color_palette )
5049
5150# ' @rdname album_palettes
5251# ' @export
0 commit comments