tests/testthat/test_crs_string.R

In crstools: Tools to Work with Projections

# styler: off

test_that("generate crs string correctly", {
  # test error for non-exising projectsion
  # commented out because we use `check.arg` which has an automatic
  # error message prone to change
  #expect_error(
  #  crs_string("blah", NA, NA, NA, NA, 0, NA, "WGS84", "m"),
  #  "Projection not recognized."
  #)


  # equal earth default with whole world
  test_string <- crs_string("eqearth", NA, NA, NA, NA, 0, NA, "WGS84", "m")
  expect_equal(test_string$proj4, "+proj=eqearth +lon_0=0 +datum=WGS84 +units=m +no_defs")
  # BUG is the wkt from the website valid?!? there s
  ref_wkt <- 'PROJCS["ProjWiz_Custom_Equal_Earth",
 GEOGCS["GCS_WGS_1984",
  DATUM["D_WGS_1984",
   SPHEROID["WGS_1984",6378137.0,298.257223563]],
  PRIMEM["Greenwich",0.0],
  UNIT["Degree",0.0174532925199433]],
 PROJECTION["Equal_Earth"],
 PARAMETER["False_Easting",0.0],
 PARAMETER["False_Northing",0.0],
 PARAMETER["Central_Meridian",0],
 UNIT["Meter",1.0]]'
  expect_true(sf::st_crs(test_string$wkt) == sf::st_crs(ref_wkt))
  # check that proj4 is the same as wkt
  expect_true(sf::st_crs(test_string$wkt) == sf::st_crs(test_string$proj4))
})