meta_do_list <-
function(
metadata
){
list <- by_group_as_list(metadata, "group")
list <- lapply(list, select, sample) %>%
lapply(unlist) %>%
lapply(unname)
return(list)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.