Nothing
# There is some support for this in caTools but
# that didn't install on some of my machines
# and so we add it here since it is already available
# from libcurl and so is a natural facility in RCurl.
# I don't like duplicating functionality in other packages
# and discourage it.
base64 =
function(txt, encode = !inherits(txt, "base64"), mode = "character")
{
asRaw = (as.character(mode) == "raw")
encode
if(typeof(txt) != "raw")
txt = as.character(txt)
if(encode) {
ans = .Call(R_base64_encode, txt, asRaw)
class(ans) <- "base64"
ans
} else
.Call(R_base64_decode, txt, asRaw)
}
base64Encode =
function(txt, mode = "character")
base64(txt, TRUE, mode)
base64Decode =
function(txt, mode = "character")
base64(txt, FALSE, mode)
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.