tests/testthat/test-estat-download.R

In japanstat: Tools for Easy Use of 'e-Stat' API

test_that("estat-download", {
  skip_on_cran()

  attr(estat_census_2020, "query")$appId <- keyring::key_get("estat-api")

  data <- estat_census_2020 %>%

    estat_activate_area() %>%
    slice(1:1e2) %>%

    estat_download()

  expect_s3_class(data, "tbl_df")
  expect_equal(vctrs::vec_size(data), 300)
})