library("R.huge")
if ("covr" %in% loadedNamespaces())
options("R.utils::onNonSeekable"="warning")
pathname <- tempfile(fileext=".bin")
apd <- FileByteVector(pathname, length=10L)
print(apd)
close(apd)
if (file.exists(pathname)) file.remove(pathname)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.