#' Get cache directory of a cachified function
#' @param f The function to return the cache directory from
#' @return The cache directory of the function
#' @export
getCacheDir <- function(f) {
if (!('cachified' %in% names(attributes(f))))
stop('Function is not cachified.')
get('cacheDir', environment(f))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.