Nothing
dynfind1 <- if (.Platform$OS.type == "windows") {
function(name, ...) {
handle <- .dynload(paste("lib",name,sep=""),...)
if (!is.null(handle)) return(handle)
.dynload(name,...)
}
} else {
if ( Sys.info()[["sysname"]] == "Darwin" ) {
function(name, ...) {
handle <- .dynload(paste(name,".framework/",name,sep=""),...)
if (!is.null(handle)) return(handle)
.dynload(paste("lib",name,".dylib",sep=""),...)
}
} else {
function(name, ...) {
handle <- .dynload(paste("lib",name,".so",sep=""),...)
if (!is.null(handle)) return(handle)
handle <- .dynload(paste("lib",name,sep=""),...)
if (!is.null(handle)) return(handle)
.dynload(paste(name,sep=""),...) # needed by Solaris to lookup 'R'.
}
}
}
dynfind <- function(libnames, auto.unload = TRUE) {
for (libname in libnames) {
handle <- dynfind1(libname, auto.unload)
if (!is.null(handle)) return(handle)
}
}
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.