tests/testthat/test-empty-return.R

skip_if_offline()
skip_if_http_error()

test_that("emprty dataframe", {
  empty_msg <- "empty dataframe, check your query!"
  expect_message(ukhp_get(limit = 0), empty_msg)
  expect_message(ukhp_get(start_date = "2100-01-01"), empty_msg)
})

Try the uklr package in your browser

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

uklr documentation built on May 25, 2021, 1:06 a.m.