tests/testthat/test-core.R

In czso: Use Open Data from the Czech Statistical Office in R

# 100013 = Těžba dřeva podle druhů dřevin a typu nahodilé těžby

test_that("download works", {
  skip_on_cran()
  expect_true(is.data.frame(czso_get_table("100013"))) # je data frame?
  expect_gte(nrow(czso_get_table("100013")), 399) # 399 = počet řádků k 2020-04-23

  expect_true(is.data.frame(czso_get_codelist("cis100"))) # je data frame?
  expect_gte(nrow(czso_get_codelist("cis100")), 14) # 14 = počet sloupců k 2020-04-23
})