crul_fetch <- function(x) {
if (is.null(x$disk) && is.null(x$stream)) {
# memory
curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
} else if (!is.null(x$disk)) {
# disk
curl::curl_fetch_disk(x$url$url, x$disk, handle = x$url$handle)
} else {
# stream
curl::curl_fetch_stream(x$url$url, x$stream, handle = x$url$handle)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.