# sharper .onLoad.
#
# Function called when the sharper package is loading.
#
# @param libname a character string giving the library directory where the package defining the namespace was found.
# @param pkgname a character string giving the name of the package.
# @rdname dotOnLoad
# @name dotOnLoad
.onLoad <- function(libname = '~/R', pkgname = 'sharper') {
pkgDir <- system.file(package = pkgname)
libsPath <- file.path(pkgDir, "libs")
libName <- paste0(pkgname, .Platform$dynlib.ext)
nativeLibPath <- file.path(libsPath, gsub("/", "", Sys.getenv('R_ARCH')), libName)
if (file.exists(nativeLibPath))
{
r_home = Sys.getenv("R_HOME")
if (is.null(r_home) || r_home == "" || !file.exists(r_home)) {
Sys.setenv(R_HOME = R.home())
}
dyn.load(nativeLibPath)
start_dotnet_core_clr()
}
}
# sharper .onLoad.
#
# Function called when the sharper package is loading.
#
# @param libname a character string giving the library directory where the package defining the namespace was found.
# @param pkgname a character string giving the name of the package.
# @rdname dotOnUnload
# @name dotOnUnload
.onUnload <- function(libname='~/R', pkgname = 'sharper') {
.C("rShutdownClr", PACKAGE = pkgname)
pkgDir <- system.file(package = pkgname)
libsPath <- file.path(pkgDir, "libs")
libName <- paste0(pkgname, .Platform$dynlib.ext)
nativeLibPath <- file.path(libsPath, gsub("/", "", Sys.getenv('R_ARCH')), libName)
if (file.exists(nativeLibPath)) {
dyn.unload(nativeLibPath)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.