VectorizeSCM <- function(scm_list){
require(purrr)
final_list <- lapply(flatten(scm_list), vect)
final_list <- lapply(final_list, as.vector)
return(final_list)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.