tests/testthat/test-reports.R

context("reports")

test_that("eia_report returns as expected", {
  x <- eia_report(id = "drilling productivity")
  expect_is(x, "list")
  expect_equal(length(x), 2)
  expect_equal(names(x), c("data", "counties"))
  v <- c("Region", "Fuel", "Month", "Rig count", "Production per rig",
         "Legacy production change", "Total production")
  expect_equal(names(x$data), v)
  v <- c("State", "County", "StateID", "CountyID", "Region")
  expect_equal(names(x$counties), v)
})

Try the eia package in your browser

Any scripts or data that you put into this service are public.

eia documentation built on Feb. 22, 2021, 9:09 a.m.