R/handleQueueArchives.R

In jbrzusto/motusServer: Operate a server to process data for http://motus.org

#' Queue a new sub-job for each archive in a folder.
#'
#' For each .7z, .zip, and .rar file, a subjob is queued which
#' will unpack the archive.
#'
#' @param j the job with item:
#' \itemize{
#' \item dir directory in which to search (recursively) for archives
#' }
#'
#' @return TRUE
#'
#' @export
#'
#' @author John Brzustowski \email{jbrzusto@@REMOVE_THIS_PART_fastmail.fm}

handleQueueArchives = function(j) {
    archs = dir(j$dir, recursive=TRUE, pattern=MOTUS_ARCHIVE_DIR_REGEX, ignore.case=TRUE,
                full.names=TRUE)
    for (a in archs) {
        newSubJob(j, "unpackArchive", .makeFolder=TRUE, file=a)
    }
    return(TRUE)
}