tests/testthat/test-get_spending.R

context("get_spending")

test_that("get_spending works correctly", {
  ec <- get_spending()
  
  expect_true(is.data.frame(ec))
  expect_true(nrow(ec) > 0)
  
})
infoDemocracy/RinfoDemocracy documentation built on March 24, 2020, 11:36 a.m.