# A safe version of base::environment() that returns emptyenv()
# if NULL is passed, instead of the calling environment.
# Related to https://github.com/HenrikBengtsson/globals/issues/79
environment_of <- function(obj) {
if (is.null(obj)) return(emptyenv())
e <- environment(obj)
if (is.null(e)) return(emptyenv())
e
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.