tests/testthat/test_run_batch.R

In shug0131/cctu: In-house Functions for Report Writing at Cambridge Clinical Trials Unit

rm(list=ls())
context("run_batch")
#library(cctu)
library(testthat)

run_batch("nested_run_batch.R")


test_that("basic test",
          {
            skip_on_ci()
            # Not yet fixed, and might never get fixed!
            expect_warning(run_batch("script_to_test_run_batch.R"),
                           "run_batch\\(\\) only works in interactive mode")
            file.remove("batch_test.csv")
            expect_equal(file.exists("batch_test.csv"), FALSE)
            print(Sys.info()["sysname"])
            #need this to fool it into being interactive
            wd <- shortPathName(getwd())
            changedir <- paste0("cd `",wd,"` & ")
            if(grepl("[Ww]indows",Sys.info()["sysname"]) ){
              cmd <- paste0(  R.home("bin"), '/R')# --ess --no-save')
              args <- c("--ess","--no-save")#,normalizePath("container.R"))
            } else{
              cmd <- paste0( changedir, R.home("bin"), '/R')
              args <- c("--interactive", "--no-save")#,"container.R")
            }
            print(getwd())
            ## THis is where it fails,
code <- substitute( system2(cmd, args=args, input=readLines(normalizePath("container.R"))))


            ## It tries to use the UNC path as the working directoy,
            ## But this fails and it defaults C:/Windows.
            ## Need to find another way to simulate interactive mode

            system2(cmd, args=args, input=readLines(normalizePath("container.R")))
            #system2(cmd, args=args)
            #shell("R --ess --vanilla < container.R ")
            print(getwd())
            expect_equal(file.exists("batch_test.csv"), TRUE)
          }
)