R/topJob.R

In jbrzusto/motus-R-package: Operate a server to process data for http://motus.org

#' return the top-level job for which the given job is a subjob
#'
#' @param j the job
#'
#' @return the toplevel ancestor of \code{j}; this might be
#' \code{j} itself.
#'
#' @export
#'
#' @author John Brzustowski \email{jbrzusto@@REMOVE_THIS_PART_fastmail.fm}

topJob = function(j) {
    stump(j)
}