tests/testthat/test-mod-migration_map_server.R

In ikbentimkramer/cdphmd: Collaborative Data Project Housing Market Dashboard

poly1 <- sf::st_polygon(list(rbind(c(0,1), c(0,0), c(1,0), c(1,1), c(0,1))))
poly2 <- sf::st_polygon(list(rbind(c(1,1), c(1,0), c(2,0), c(2,1), c(1,1))))
map <- tibble::tribble(
  ~statcode, ~geometry,
  "GM0059", poly1,
  "GM0106", poly2)
map  <- sf::st_sf(as.data.frame(map))
map <- sf::st_set_crs(map, 4326)
data <- tibble::tribble(
  ~municip_code, ~municipality, ~`Percentage`,
  "GM0059", "Achtkarspelen", -0.47,
  "GM0106", "Assen",  1.17)

test_that("Map server does not throw errors", {
  shiny::testServer(
    args = list(mapdata = map, filtered_migration = data),
    migration_map_server,
    {
      expect_error(output$migrationmap, NA)
    })
})