tests/testthat/testUSA.R

In benjones2/WOODCARB3RB: WOODCARB3RB

#context("Test Ipcc Reporting data.")

#table of final variables to test
#finalvars <- finalVariables()

#read in correct table to test against
# check <- system.file("extdata/CopyOfData",
#                      "testIpccReport2.csv", package="WOODCARB3R")
# check <- read.csv(check)

# test_that("check variables", {
#   expect_equal(finalvars, check[1:26,1:8])
# })