setGeneric("getDynLib", function(x, ...) standardGeneric("getDynLib") )
setMethod( "getDynLib", signature( x = "character" ),
function( x ){
dlls <- getLoadedDLLs()
if( x %in% names( dlls ) ){
dlls[[ x ]]
} else {
stop( sprintf( "dll %s not loaded", x ) )
}
} )
setMethod( "getDynLib", signature( x = "CFunc" ),
function( x ){
env <- environment( x@.Data )
f <- get( "f", env )
dlls <- getLoadedDLLs()
dll <- if( ! f %in% names(dlls) ){
dyn.load( get( "libLFile", env ) )
} else{
dlls[[ f ]]
}
dll
} )
setMethod( "getDynLib", signature( x = "CFuncList" ), function(x) getDynLib( x[[1L]] ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.