Nothing
# Package: rdyncall
# File: R/dyncall.R
# Description: R bindings for dynload library
.dynload <- function(libname, auto.unload=TRUE)
{
libname <- as.character(libname)
stopifnot( is.character(libname) )
libh <- .Call("dynload", libname, PACKAGE="rdyncall")
if (!is.null(libh)) {
attr(libh, "path") <- libname
attr(libh, "auto.unload") <- auto.unload
if (auto.unload) reg.finalizer(libh, .dynunload)
}
libh
}
.dynunload <- function(libhandle)
{
if (!is.externalptr(libhandle)) stop("libhandle argument must be of type 'externalptr'")
.Call("dynunload", libhandle, PACKAGE="rdyncall")
}
.dynsym <- function(libhandle, symname, protect.lib=TRUE)
{
if (!is.externalptr(libhandle)) stop("libh argument must be of type 'externalptr'")
.Call("dynsym", libhandle, as.character(symname), as.logical(protect.lib), PACKAGE="rdyncall")
}
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.