#' Assert a sbtach object
#'
#' @param x a object to assert is a \code{sbatch} object.
#'
assert_sbatch <- function(x){
checkmate::assert_class(x, "sbatch")
checkmate::assert_character(x$code)
checkmate::assert_flag(x$add_status)
checkmate::assert_string(x$J_, null.ok = TRUE)
checkmate::assert_number(x$t_)
checkmate::assert_string(x$A_, null.ok = TRUE)
checkmate::assert_string(x$C_, null.ok = TRUE)
checkmate::assert_integerish(x$n_, null.ok = TRUE)
checkmate::assert_integerish(x$N_, null.ok = TRUE)
checkmate::assert_number(x$mem__, null.ok = TRUE)
checkmate::assert_flag(x$exclusive__)
checkmate::assert_string(x$mail_user__, pattern = "(.)+@[a-z]+.[a-z]+", null.ok = TRUE)
if(!is.null(x$mail_type__)) checkmate::assert_choice(x$mail_type__, c("ALL", "END", "BEGIN", "FAIL"))
checkmate::assert_string(x$output__)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.