Nothing
.onLoad <- function(libname, pkgname) {
lib_path <- system.file("lib", .Platform$r_arch, paste0("libconnection", .Platform$dynlib.ext), package = "archive")
res <- dyn.load(lib_path)
rchive_init(res$new_connection$address, res$read_connection$address)
}
.onUnload <- function(libname) {
lib_path <- system.file("lib", .Platform$r_arch, paste0("libconnection", .Platform$dynlib.ext), package = "archive")
dyn.unload(lib_path)
}
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.