R/makeLibraryCtx.R

In gmbecker/switchr: Installing, Managing, and Switching Between Distinct Sets of Installed Packages

##' makeLibraryCtx
##'
##' Locate or create a specified switchr library
##'
##' This function is not intended to be called directly in most cases; switchTo
##' calls it automatically.
##' 
##' @param name The name for the library
##' @param seed The object to seed the library from
##' @param pkgs Pkgs to install upon creation. Deprecated, use a seeding object
##' instead.
##' @param exclude.site Whether the site library should be excluded when
##' switching to this library
##' @param contains Currently unused.
##' @param rvers Optional R version. If specified, existing libraries much be
##' associated with the same R version to be considered a match.
##' @param verbose Should informative messages be emitted to the console
##' @export
makeLibraryCtx = function(name, seed=NULL, pkgs = NULL, exclude.site = TRUE,
                   contains, rvers = NULL, verbose=FALSE) {

    cenv = findCompEnv(name = name, rvers = rvers)
    
    if(!is.null(cenv))
        return(cenv)
    
    libloc = file.path(switchrBaseDir(), name)
    
    if(!file.exists(libloc))
        dir.create(libloc, recursive=TRUE)
    oldlp = .libPaths()
    .libPaths2(libloc, exclude.site)
    on.exit(.libPaths(oldlp))    

    if(is.null(pkgs) && !missing(seed)) {
        if(is(seed, "SessionManifest")) 
            install_packages(seed, type = "source", lib = libloc[1])
        else if(is(seed, "PkgManifest"))
            pkgs = manifest_df(seed)$name
        else if(is(seed, "character")) {
            avl = tryCatch(available.packages(contrib.url(seed, type = "source"), type="source"))
            if(!is(avl, "error"))
                pkgs = avl[,"Package"]
        }
        
    }

    if(!is.null(pkgs) && !is.null(seed))
        install_packages(pkgs, repos = seed, type="source", lib  = libloc[1])
    write.table(data.frame(name = name, url = "", paths = libloc,
                           excl.site = exclude.site,
                           rversion = gsub("R version ([^ ]*).*", "\\1",
                               R.version.string),
                           stringsAsFactors=FALSE),
                file = file.path(libloc[1], "lib_info")
                )
    updateManifest()
    SwitchrCtx(name = name, libpaths = libloc, exclude.site = exclude.site, seed = seed)
}