tests/testthat/test_create_word_xml.R

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

context("create_word_xml check not provided elswhere")


#Not sure if I want to actually change the wd and thus need to build all the input files...
# need to check lines 42:43
#if(getwd()!=path){
#  warning(paste("you are calling create_word_xml with the working directory not equal to", path))
#  setwd(path)
#}