# Roxygen Comments mantaJobs.tail
#' Returns identifier of last run Manta job identifier,
#' or from offset \code{n} up from end of list.
#'
#' @param n integer. Index into most recently run Jobs list.
#' \code{n = 1} default is last Manta Job run. \code{n = 2}
#' is second last, and so on.
#'
#' @keywords Manta
#'
#' @family mantaJobs
#'
#' @examples
#' \dontrun{
#' ## Get the Job Id of the last run Manta job:
#' mantaJobs.tail()
#' ## Fifth last Manta job id:
#' mantaJobs.tail(n = 5)
#' }
#'
#' @export
mantaJobs.tail <-
function(n = 1) {
# If this is the first export function called in the library
if (manta_globals$manta_initialized == FALSE) {
mantaInitialize(useEnv = TRUE)
}
jobslist <- mantaLs(mantapath = "~~/jobs", l='names', sortby = 'time')
if (jobslist[1] == "") {
stop("No Manta Jobs Found.")
}
return( jobslist[(length(jobslist) - n + 1)] )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.