#' Submission Convenience function
#'
#' @param n Number of jobs to submit. Defaults
#'
#' @return Nothing. Submits directly to QSUB; check with qstat.
#'
#' @export
sub_job <- function(ni = NULL, nj = NULL){
if (is.null(ni)) stop("Give a range for ni")
if (is.null(nj)) stop("Give a range for nj")
for(i in ni){
for(j in nj){
sh <- system.file(package = "coRge", "bash/submit.sh")
r <- system.file(package = "coRge", "bash/submit.R")
system(paste0("qsub -N ld_run_", i, "_", j, " ", sh, " ", i, " ", j, " ", r))
message(paste0("Submitted i = ", i, " j = ", j))
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.