R/q.wd.R

In okux/qrmarkdown: Job Queue Management For Rmarkdown

# set default dir
q.wd <- function(wdir=NULL, full.name=FALSE)
{

  # current qwd directory
  if(is.null(wdir))
    return(.pkg.log$log.dir)

  # set new working diretory
  if( !is.null(wdir) )
  {

    if(full.name && length(getwd) > 0 )
      wdir <- sprintf('%s/%s', getwd(), wdir) else
        wdir <- wdir

    if(!file.exists(wdir) )
    dir.create(wdir,recursive = TRUE, showWarnings = FALSE)

    .pkg.log$log.dir <<- wdir
    .pkg.log$scheduler.file <<- sprintf("%s/.scheduler.rda",.pkg.log$log.dir)
    .pkg.log$scheduler.shutdown <<- sprintf("%s/.scheduler.shutdown",.pkg.log$log.dir)

    # reset log directory
    .qdir.create()

    return(.pkg.log$log.dir )
  }

  return( .pkg.log$log.dir)

}


q.setwd <- function(wdir=NULL)
{
  if (is.null(wdir))
  {
    QWD <- qwd()
    if(QWD=="") stop("empty wdir for q.setwd") else
      wdir <- QWD
  }

  return ( q.wd(wdir=wdir) )
}


qwd <- function()
{

  return ( Sys.getenv('QWD') )

}