Nothing
base64enc <- function(filename) {
filesize <- file.info(filename)$size
if (filesize > 0) {
pngdata <- base64_enc(readBin(filename, "raw", n = filesize))
paste0("data:image/png;base64,", pngdata, collapse = "")
} else {
warning(paste(sQuote(filename), "is empty"))
filename
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.