temp_desc <- function(file = "D2") {
tmp <- tempfile()
file.copy(test_path(file), tmp)
tmp
}
private <- function(x) {
x$.__enclos_env__$private
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.