tests/testthat/test-LongLatToUTM.R

In diegoalarc/GeodesiCL: Geometric Geodesy Functions

test_that("To convert from Geographic coordinate to UTM coordinate works", {
   # Point name
   Pto <- "St1"

   # Longitude
   g <- -71
   m <- 18
   s <- 44.86475

   # Value in sexagesimal
   sexa_long <- sexagesimal(g, m, s)

   # Latitude
   g1 <- -33
   m1 <- 12
   s1 <- 27.11457

   # Value in sexagesimal
   sexa_lat <- sexagesimal(g1, m1, s1)

   # Longitude and Latitude as data.frame
   longlat_df <- data.frame(Pto,sexa_long,sexa_lat)

   value <- LongLatToUTM(longlat_df, units = 'm', digits = 4)
   expect_equal((LongLatToUTM(longlat_df, units = 'm', digits = 4)), value)
})