#' unList
#' @export
unList <- function(x, y=""){
res <- list()
for (i in names(x)){
id <- if(y=="") i else paste(y,i,sep="_")
if (is.list(x[[i]]) && !is.data.frame(x[[i]])) {
tmp <- unList(x[[i]], y=id)
res <- c(res,tmp)
} else {
res[[id]] <- x[[i]]
}
}
res
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.