inst/tinytest/test-cbs4_search.R

if (!at_home()){
  exit_file("No live testing urls")
}

# filter on Perioden (see meta$PeriodenCodes)
d <- cbs4_search("fiets")

expect_true(nrow(d) > 0)

ds <- cbs4_get_datasets()
expect_true(all(d$Identifier %in% ds$Identifier))
expect_true(all(names(ds) %in% names(d)))

expect_true(is.numeric(d$rel))
statistiekcbs/cbsccb documentation built on April 8, 2022, 2:38 a.m.