tests/testthat/test-geojson_read.R

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

test_that("geojson_read works with file inputs", {
  skip_on_cran()

  file <- example_sys_file("california.geojson")
  aa <- geojson_read(file)

  expect_type(aa, "list")
  expect_equal(aa$type, "FeatureCollection")
  expect_type(aa$features, "list")
  expect_equal(aa$features[[1]]$type, "Feature")
  expect_setequal(
    names(aa$features[[1]]),
    c("type", "properties", "geometry")
  )
  expect_true(all(c("type", "features") %in% names(aa)))
})

test_that("geojson_read works with url inputs", {
  skip_on_cran()
  skip_if_offline()

  url <- "https://raw.githubusercontent.com/glynnbird/usstatesgeojson/master/california.geojson"
  aa <- geojson_read(url)

  expect_type(aa, "list")
  expect_equal(aa$type, "FeatureCollection")
  expect_type(aa$features, "list")
  expect_equal(aa$features[[1]]$type, "Feature")
  expect_setequal(
    names(aa$features[[1]]),
    c("type", "properties", "geometry")
  )
})

test_that("geojson_read works with as.location inputs", {
  skip_on_cran()

  file <- example_sys_file("california.geojson")
  aa <- geojson_read(as.location(file))

  expect_type(aa, "list")
  expect_equal(aa$type, "FeatureCollection")
  expect_type(aa$features, "list")
  expect_equal(aa$features[[1]]$type, "Feature")
  expect_setequal(
    names(aa$features[[1]]),
    c("type", "properties", "geometry")
  )
  expect_true(all(c("type", "features") %in% names(aa)))
})

test_that("geojson_read works outputing spatial class object", {
  skip_on_cran()

  file <- example_sys_file("norway_maple.kml")
  aa <- geojson_read(as.location(file), what = "sp")

  expect_s4_class(aa, "SpatialPointsDataFrame")
  expect_s3_class(aa@data, "data.frame")
  expect_s4_class(aa@proj4string, "CRS")
})