tests/testthat/test-joinRGdata.R

test_that("Function joins data frames", {
  load("data/PRECL Global.rda")
  load("data/sic Regional.rda")
  expect_is(joinRGdata(`PRECL Global`, `sic Regional`), "data.frame")
})
JohanFR198/NarccapRDD documentation built on Oct. 14, 2019, 10:04 p.m.