R/p_load_single.R

In pacman: Package Management Tool

#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)
}