tests/testthat/test-macarthur.R

test_that("MacArthur returns expected result", {
  skip_on_cran()
  suppressMessages(vcr::use_cassette("macarthur", serialize_with="json", {
    macarthur <-
      .standardize_macarthur("qualitative", "2015-01-01", "2019-01-01",
                             FALSE)
  }))
  expect_equal(nrow(macarthur), 3)
})
PESData/awardFindR documentation built on March 27, 2024, 4:46 a.m.