tests/testthat/test-readCSVs.R

context("readCSVs works")

cat("test, head", "val1, val2", sep="\n", file="test.csv")

expect_equal(readCSVs("."), "test <- read.csv(file=\"./test.csv\", header=TRUE, na.string=c(\"NA\", \".\"), stringsAsFactors=FALSE)")

store <- file.remove("test.csv")
davis-research/MakeMyForests documentation built on May 21, 2019, 11:40 a.m.