R/load.if.R

Defines functions load.if

load.if <- function(x, verbose=TRUE, ...){
    got <- NULL
    if(!is.null(x)){
        if(verbose)
            message(paste("Loading: "), x)
        y <- load(file=x, verbose=verbose, ...)
        got <- get(y)
        assign(y, got, envir=parent.frame(1))
    }
    invisible(got)
}

Try the Pigengene package in your browser

Any scripts or data that you put into this service are public.

Pigengene documentation built on Nov. 8, 2020, 6:47 p.m.