tests/testthat/test-dms.R

In poissonconsulting/poisspatial: Spatial Functions

test_that("dms", {
  expect_identical(ps_dd2ddm(c(70.654, NA, -56.654)),
                   c("70 39.2399999999998", NA, "-56 39.2400000000002"))
  expect_identical(ps_dd2ddm(c(NA_real_)),
                   c(NA_character_))

  expect_identical(ps_dm2mds(c(10.654, NA)),c("10 39.24", NA))

  expect_identical(ps_dd2dmds(c(70.654, NA, -56.654)),
                   c("70 39 14.3999999999869", NA, "-56 39 14.4000000000125"))

  expect_identical(ps_ddm2dd(c("70 39.24", NA, "-56 39.24")),
                   c(70.654, NA, -56.654))
    expect_identical(ps_ddm2dd(ps_dd2ddm(c(70.654, NA, -56.654))),
                     c(70.654, NA, -56.654))
})