R/track.detach.R

In track: Store Objects on Disk Automatically

track.detach <- function(pos=NULL, name=NULL, detach=TRUE) {
    if (is.null(pos) == is.null(name))
        stop("must specify one of pos or name")
    if (is.null(pos)) {
        pos <- match(name, search())
        if (is.na(pos))
            stop("'", name, "' is not a name on the search list")
    } else {
        name <- search()[pos]
    }
    if (length(pos)!=1 || pos < 2)
        stop("pos must have one value >= 2")
    if (!env.is.tracked(pos=pos))
        stop("environment at pos=", pos, " is not tracked")
    envir <- as.environment(pos)
    trackingEnv <- getTrackingEnv(envir)
    opt <- track.options(trackingEnv=trackingEnv)
    if (!opt$readonly)
        track.sync(pos=pos, full=TRUE, master="envir")
    track.stop(pos=pos, detach=detach)
    # detach(pos=pos, unload=TRUE)
    return(invisible(NULL))
}