#' Cancels a SLURM job
#' @param x character vector - the SLURM ids
cancelJob <- function(x) {
x <- as.character(x)
if(length(x) > 1)
x <- paste0(x, collapse = " ")
systemSubmit(paste("scancel", x), wait = rSubmitterOpts$TIME_WAIT_FAILED_CMD, ignore.stdout = T)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.