Issues on canva_palettes

[Eluvias]

The canva_palettes has two "Trendy and metropolitan" palettes; the second is empty and therefore
breaks the example.

tibble::enframe(canva_palettes) %>% filter(name == "Trendy and metropolitan")

In addition, there some typos when creating the canvas_df tibble.

I believe this is what you're after:

canva_df <- map2_df(canva_palettes, names(canva_palettes),
                    ~ tibble(color = .x, .id = seq_along(color), palette = .y))

[Eluvias]

Also in Elegant and sophisticated, the first HTML code contains 7 symbols instead of 6.

canva_palettes$`Elegant and sophisticated`[1]
[1] "#0b83c5d"

[Eluvias]

Here is the primary source of the issues -
http://makeadifferencewithdata.com/wp-content/uploads/2016/12/color-palettes.txt

<color-palette name="Trendy and metropolitan" type="regular" > 
<color>#488a99</color> 
<color>#dbae58</color> 
<color>#fbe9e7</color> 
<color>#b4b4b4</color> 
</color-palette>

<color-palette name="Trendy and metropolitan" type="regular" > 
<color>#</color> 
<color>#</color> 
<color>#</color> 
<color>#</color> 
</color-palette>


<color-palette name="Elegant and sophisticated" type="regular" > 
<color>#0b83c5d</color>
<color>#328cc1</color> 
<color>#d9b310</color> 
<color>#1d2731</color> 
</color-palette>

[jrnold]

Thanks!