qstat <- function(f='',...){
range <- c(
'ext','cb','f','F','g','help','j','l','ne','pe',
'pri','q','qs','r','s','t','U','u','urg','xml'
)
args <- c(list(f=f),list(...))
args <- args[names(args) %in% range]
if(length(args))names(args) <- glue('-',names(args))
vectors <- c(as.list(names(args)),args)
vectors <- vectors[t(matrix(seq(length.out=length(vectors)),ncol=2))]
string <- do.call(paste,vectors)
command <- paste('qstat',string)
command <- gsub('-[^ ]* NA','',command)
safe.call(system,command=command,...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.