Nothing
#TODO - Rewrite this cleaner...
# Requires input to be character
p_load_single <-
function (package, install = TRUE, ...){
# Try to load package
if(suppressMessages(suppressWarnings(require(package, character.only = TRUE)))){
return(TRUE)
}
# Loaded failed - attempt to install
if(install){
p_install(package, character.only = TRUE, ...)
# Try to load again - return results
return(suppressMessages(require(package, character.only = TRUE)))
}
# Couldn't load and we didn't want to install
return(FALSE)
}
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.