# NOT RUN {
##---- typical example ----
fn <- file.path(tempdir(), 'myFile')
fr <- generateUnitTestFile(fn, c("# a comment", "x <- 2"))
cat(paste(readLines(fr$filename), collapse = '\n'))
# a comment
# x <- 2
# }
Run the code above in your browser using DataLab