#' Return an environment with objects defined in a script file
#'
#' @param file R file to source
#' @param ... other arguments passed to \code{sys.source}
#'
#' @export
srcenv <- function(file, ...) {
e <- new.env(parent.frame())
sys.source(file, envir=e, ...)
e
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.