Build, Check, Install and (Re)Load R Package

buildpkg.R

b <- function(path = "package/", ...){

    require(devtools)
    require(roxygen2)

    pkg <- as.package(path)             # package pointer

    ## update documentation
    message("Updating documentation...")
    roxygenise(path, ...)

    ## build package
    message("Building package...")
    bld.path <- build(pkg)

    ## check package
    message('Running "R CMD check"...')
    system(sprintf("R CMD check %s", bld.path))

    ## install package
    message('Installing package...')
    pkg.info <- devtools:::load_pkg_description(path)
    pkg.name <- pkg.info$package
    pkg.targz <- sprintf("%s_%s.tar.gz", pkg.name, pkg.info$version)
    install.packages(pkg.targz, repos = NULL, type = "source")
    message("Package was successfully built and installed!")

    ## detach package if already attached (loaded in search path)
    pkg.ns <- sprintf("package:%s", pkg.name)
    if (pkg.ns %in% search())
        detach(pkg.ns)

    ## load package
    library(pkg.name)
    message("Package (re)loaded!")

    invisible(TRUE)
}