pool_metadata <- function(x,
check_valid = TRUE,
error_call = caller_env(),
error_arg = caller_arg(x)) {
meta <- attr(x, "pool_metadata", exact = TRUE)
if (is.null(meta)) {
abort(
paste0("`", error_arg, "` is not an pooled object."),
call = error_call
)
}
if (check_valid && !meta$valid) {
abort(
paste0("`", error_arg, "` is no longer valid."),
call = error_call
)
}
meta
}
# Lightweight equivalent of withr::defer()
defer <- function(expr, envir = parent.frame(), after = FALSE) {
thunk <- as.call(list(function() expr))
do.call(on.exit, list(thunk, TRUE, after), envir = envir)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.