R/setup.R

In okux/qrmarkdown: Job Queue Management For Rmarkdown

setup <- function()
{
  message('Setting up default qwd at testlog')
  require(qrmarkdown)
  require(testthat)

  if(file.exists('testlog'))
    system('rm -r testlog')

  q.wd('testlog', full.name = TRUE)
  dir('testlog')

}

clean <- function()
{
  message("Cleaning log directories")

  if(file.exists('testlog'))
    system('rm -r testlog')

}