#' @export
move_first <- function(d,name){
d[c(name, names(d)[!names(d) %in% name])]
}
#' @export
nested_to_list <- function(d){
d <- d %>% arrange_(.dots=names(d)[1])
l <- d[[2]]
names(l) <- d[[1]]
l
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.