#' Appends, saves variables to RDA file
#' @param ... additional parameters
#' @param list a list
#' @param file a RDA file
#' @export
resave <- function(..., list = character(), file) {
previous <- load(file)
var.names <- c(list, as.character(substitute(list(...)))[-1L])
for (var in var.names) assign(var, get(var, envir = parent.frame()))
save(list = unique(c(previous, var.names)), file = file)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.