tests/testthat/test-topojson_json.R

In geojsonio: Convert Data from and to 'GeoJSON' or 'TopoJSON'

test_that("topojson_json works with numeric inputs", {
  skip_on_cran()

  aa <- topojson_json(c(-99.74, 32.45), quiet = TRUE)
  expect_s3_class(aa, "json")
})

test_that("topojson_json works with numeric inputs for polygons", {
  skip_on_cran()

  poly <- c(
    c(-114.345703125, 39.436192999314095),
    c(-114.345703125, 43.45291889355468),
    c(-106.61132812499999, 43.45291889355468),
    c(-106.61132812499999, 39.436192999314095),
    c(-114.345703125, 39.436192999314095)
  )
  aa <- topojson_json(poly, type = "GeometryCollection", quiet = TRUE)
  expect_s3_class(aa, "json")
})

test_that("topojson_json works with list inputs", {
  skip_on_cran()

  vecs <- list(
    c(100.0, 0.0), c(101.0, 0.0), c(101.0, 1.0), c(100.0, 1.0),
    c(100.0, 0.0)
  )
  aa <- topojson_json(vecs, geometry = "polygon")
  expect_s3_class(aa, "json")
})

test_that("topojson_json works with data.frame inputs", {
  skip_on_cran()

  aa <- topojson_json(us_cities[1:2, ], lat = "lat", lon = "long")
  expect_s3_class(aa, "json")
})

test_that("topojson_json object_name param works", {
  skip_on_cran()

  # default
  aa <- topojson_json(us_cities[1:2, ], quiet = TRUE, lat = "lat", lon = "long")
  expect_named(jsonlite::fromJSON(aa)$objects, "foo")
  # custom object name
  bb <- topojson_json(
    us_cities[1:2, ],
    object_name = "stuff",
    quiet = TRUE,
    lat = "lat",
    lon = "long"
  )
  expect_named(jsonlite::fromJSON(bb)$objects, "stuff")
})