Code
sleep %>% rename(`my non-syntactic name` = group) %>% .grouped_list(
grouping.var = `my non-syntactic name`) %>% str()
Output
List of 2
$ data :List of 2
..$ 1: tibble [10 x 3] (S3: tbl_df/tbl/data.frame)
.. ..$ extra : num [1:10] 0.7 -1.6 -0.2 -1.2 -0.1 3.4 3.7 0.8 0 2
.. ..$ my non-syntactic name: Factor w/ 2 levels "1","2": 1 1 1 1 1 1 1 1 1 1
.. ..$ ID : Factor w/ 10 levels "1","2","3","4",..: 1 2 3 4 5 6 7 8 9 10
..$ 2: tibble [10 x 3] (S3: tbl_df/tbl/data.frame)
.. ..$ extra : num [1:10] 1.9 0.8 1.1 0.1 -0.1 4.4 5.5 1.6 4.6 3.4
.. ..$ my non-syntactic name: Factor w/ 2 levels "1","2": 2 2 2 2 2 2 2 2 2 2
.. ..$ ID : Factor w/ 10 levels "1","2","3","4",..: 1 2 3 4 5 6 7 8 9 10
$ title: chr [1:2] "1" "2"
Code
.is_palette_sufficient("RColorBrewer", "Dark2", 20L)
Message
Number of labels is greater than default palette color count.
* Select another color `palette` (and/or `package`).
Output
[1] FALSE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.