Mercurial > pub > dyncall > bindings
view R/rdyncall/R/dynload.R @ 61:c5a69c454963 default tip
- allow use of 'None' with 'Z'
- bumped version to 1.4 (be in sync current dyncall version)
author | Tassilo Philipp |
---|---|
date | Mon, 03 Apr 2023 19:06:07 +0200 |
parents | 0cfcc391201f |
children |
line wrap: on
line source
# 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") }