tests/testthat/test-map.R

In ATFutures/geoplumber: Geospatial applications with R and frontend libraries

context("test-map")

test_that("gp_map works", {
  url = "https://docs.mapbox.com/help/data/stations.geojson"
  path = file.path(tempdir(), basename(url))
  result <- gp_map(x = url, browse_map = FALSE)
  found <- grepl(pattern = "const geojson = null;",
                 x = result)
  expect_false(found)
  result <- gp_map(x = geoplumber::traffic,
                   browse_map = FALSE)
  found <- grepl(pattern = "const geojson = null;",
                 x = result)
  expect_false(found)
  expect_true(grepl(pattern = "traffic", result))
})