######################################################################################################################
# Function: appendList .
# Argument: two lists.
# Description: This function is used to merge two lists
appendList <- function (x, val)
{
stopifnot(is.list(x), is.list(val))
xnames <- names(x)
for (v in names(val)) {
x[[v]] <- if (v %in% xnames && is.list(x[[v]]) && is.list(val[[v]]))
appendList(x[[v]], val[[v]])
else c(x[[v]], val[[v]])
}
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.