tests/testthat/test_05_json.R

In eurostat: Tools for Eurostat Open Data

test_that("Get json data", {
  skip_on_cran()
  skip_if_offline()
  expect_named(
    get_eurostat_json("nama_10_gdp", 
                      filters = list(
                        geo = "FI",
                        na_item = "B1GQ",
                        unit = "CLV_I10")),
    c("geo", "unit", "na_item", "time", "values", "freq"),
    ignore.order = TRUE
  )
  
  # Unsupported language code used. Using the default language: "en"
  expect_message(
    get_eurostat_json("nama_10_gdp", 
                      filters = list(
                        geo = "FI",
                        na_item = "B1GQ",
                        unit = "CLV_I10"),
                      lang = "FI",
                      type = "label")
  )
  
  # Using the default language: "en"
  expect_message(
    get_eurostat_json("nama_10_gdp", 
                      filters = list(
                        geo = "FI",
                        na_item = "B1GQ",
                        unit = "CLV_I10"),
                      lang = NULL,
                      type = "both")
  )
  
  # Error message
  expect_error(
    get_eurostat_json("invalid_id")
  )
  
  # sleep for a while to let the API rest
  Sys.sleep(5)
})