tests/testthat/test-browse_data.R

In readrba: Download and Tidy Data from the Reserve Bank of Australia

test_that("browse_rba functions work", {
  # Unfiltered series
  expect_is(browse_rba_series(), "tbl_df")
  expect_gt(nrow(browse_rba_series()), 4000)
  expect_length(browse_rba_series(), 8)

  # Filtered series
  expect_lt(nrow(browse_rba_series("inflation")), 100)

  # Tables
  tabs <- browse_rba_tables()
  expect_is(tabs, "tbl_df")
  expect_length(tabs, 5)
  expect_gt(nrow(tabs), 100)

  expect_identical(
    unique(tabs$current_or_historical),
    c("current", "historical")
  )

  cpi <- browse_rba_tables("consumer price")
  expect_gt(nrow(cpi), 1)
  expect_true("Consumer Price Inflation" %in% unique(cpi$title))
})

test_that("browse_rba_tables(refresh = TRUE) delivers expected results", {
  skip_if_offline()
  skip_on_cran()
  refreshed <- browse_rba_tables(refresh = TRUE)
  expect_is(refreshed, "tbl_df")
  expect_length(refreshed, 5)
  expect_gt(nrow(refreshed), 120)
})