tests/testthat/test-lines.R

In ateucher/rmapshaper: Client for 'mapshaper' for 'Geospatial' Operations

test_that("ms_lines works with all classes", {
  out_json <- ms_lines(innerlines_poly)
  expect_s3_class(out_json, "json")
  expect_snapshot_value(out_json, style = "json2")
  expect_s3_class(ms_lines(unclass(innerlines_poly)), "geojson")

  expected_sp <- GeoJSON_to_sp(out_json)
  expect_equivalent(ms_lines(innerlines_poly_spdf),expected_sp)
  expect_equivalent(ms_lines(innerlines_poly_sp), as(expected_sp, "SpatialLines"))

  expected_sf <- read_sf(unclass(out_json))
  expected_sfc <- st_geometry(expected_sf)

  expect_equivalent(st_geometry(ms_lines(innerlines_poly_sf)), expected_sfc)
  expect_equivalent(ms_lines(innerlines_poly_sfc), expected_sfc)
})

test_that("ms_lines works with fields specified", {
  out_json <- ms_lines(innerlines_poly, "foo")
  expect_s3_class(out_json, "geojson")
  expect_snapshot_value(out_json, style = "json2")

  expected_sp <- GeoJSON_to_sp(out_json)

  expect_equivalent(ms_lines(innerlines_poly_spdf, "foo"), expected_sp)
  expect_equivalent(ms_lines(innerlines_poly_sf, "foo")$RANK, c(2,2,1,1,0,0,0,0))
})

test_that("ms_lines errors correctly", {
  expect_error(ms_lines('{foo: "bar"}'), "Input is not valid geojson")
  # Don't test this as the V8 error throws a warning
  expect_warning(ms_lines(innerlines_poly, "bar"), "The command returned an empty response")
  expect_error(ms_lines(innerlines_poly_spdf, "bar"), "not all fields specified exist in input data")
  expect_error(ms_lines(innerlines_poly, 1), "fields must be a character vector")
  expect_error(ms_lines(innerlines_poly, force_FC = "true"), "force_FC must be TRUE or FALSE")

  expect_error(ms_lines(innerlines_poly_sfc, "foo"), "Do not specify fields for sfc classes")
})

test_that("ms_innerlines works with sys = TRUE", {
  skip_if_not(has_sys_mapshaper())
  expect_s3_class(ms_lines(innerlines_poly, sys = TRUE), "geojson")
  expect_snapshot_value(ms_lines(innerlines_poly, sys = TRUE), style = "json2")
  expect_s4_class(ms_lines(innerlines_poly_spdf, sys = TRUE), "SpatialLinesDataFrame")
  expect_s3_class(ms_lines(innerlines_poly_sf, sys = TRUE), "sf")
})