# Get the environment from a fastmap/fastqueue/faststack object, so we can
# access internal objects.
env <- function(x) {
environment(x$as_list)
}
# An empty named list is different from an empty unnamed list. This creates
# the former.
empty_named_list <- function() {
list(a=1)[0]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.