R/q.shutdown.R

Defines functions q.shutdown is.scheduler.shutdown

is.scheduler.shutdown <- function()
{
  if(file.exists(.pkg.log$scheduler.shutdown))
    return(TRUE) else return(FALSE)
}

q.shutdown <- function()
{

  sink(file=.pkg.log$scheduler.shutdown, append = TRUE)
  cat("shutdown")
  sink()

}
okux/qrmarkdown documentation built on Dec. 22, 2021, 4:17 a.m.