tests/testthat/test-topojson_list.R

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

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

  aa <- topojson_list(c(-99.74, 32.45), quiet = TRUE)
  expect_type(aa, "list")
})

test_that("topojson_list 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_list(poly, type = "GeometryCollection", quiet = TRUE)
  expect_type(aa, "list")
})

test_that("topojson_list 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_list(vecs, geometry = "polygon")
  expect_type(aa, "list")
})

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

  aa <- topojson_list(us_cities[1:2, ], lat = "lat", lon = "long")
  expect_type(aa, "list")
})

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

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