tests/testthat/test-ha_layer.R

In healthatlas: Explore and Import 'Metopio' Health Atlas Data and Spatial Layers

test_that("check layers list", {
  skip_if_offline(cha_url)
  skip_on_cran()

  ha_set(cha_url)
  layers <- ha_layers()

  "expect a data.frame"
  expect_s3_class(layers, "data.frame")

  "check table names"
  expect_equal(names(layers), layers_header)

  "check 4 rows"
  expect_equal(nrow(layers), 4)
})

test_that("check a single layer", {
  skip_if_offline(cha_url)
  skip_on_cran()

  ha_set(cha_url)
  expect_snapshot(layer <- ha_layer("neighborhood", progress = FALSE))

  "expect a data.frame"
  expect_s3_class(layer, "sf")
  expect_s3_class(layer, "data.frame")

  "check table names"
  expect_equal(names(layer), layer_header)

  "check 77 rows"
  expect_equal(nrow(layer), 77)
})