tests/testthat/test-elevation.R

In nationalparkservice/IMDQC: NPS Inventory and Monitoring Quality Control Toolkit

need_elev <- data.frame(decimalLongitude = c(-105.73012,
                                               -105.73044,
                                               -105.83044),
                           decimalLatitude = c(40.56321,
                                                40.78333,
                                                40.26921)
                           )
wrong_hemisphere <- data.frame(decimalLongitude = c(105.73012,
                                                    105.73044,
                                                    105.83044),
                               decimalLatitude = c(-40.56321,
                                                   -40.78333,
                                                   -40.26921)
)

non_numerics <- data.frame(decimalLongitude = c("test"),
                               decimalLatitude = c("test")
)


test_that("get_elevation returns the correct columns", {
  x <- get_elevation(df = need_elev,
                     decimal_lat = "decimalLatitude",
                     decimal_long = "decimalLongitude",
                     spatial_ref = "4326",
                     force = TRUE)
  expect_equal(names(x), c("decimalLongitude",
                           "decimalLatitude",
                           "minimumElevationInMeters",
                          "maximumElevationInMeters"))
})

test_that("get_elevation returns the correct columns when verbose", {
  x <- get_elevation(df = need_elev,
                     decimal_lat = "decimalLatitude",
                     decimal_long = "decimalLongitude",
                     spatial_ref = "4326",
                     force = FALSE)
  expect_equal(names(x), c("decimalLongitude",
                           "decimalLatitude",
                           "minimumElevationInMeters",
                           "maximumElevationInMeters"))
})

test_that("get_elevation returns correct columns for GPS in wrong hemisphere", {
  x <- get_elevation(df = wrong_hemisphere,
                     decimal_lat = "decimalLatitude",
                     decimal_long = "decimalLongitude",
                     spatial_ref = "4326",
                     force = TRUE)
  expect_equal(names(x), c("decimalLongitude",
                           "decimalLatitude",
                           "minimumElevationInMeters",
                           "maximumElevationInMeters"))
})

test_that("get_elevation returns correct columns for GPS in wrong hemisphere when verbose", {
  x <- get_elevation(df = wrong_hemisphere,
                     decimal_lat = "decimalLatitude",
                     decimal_long = "decimalLongitude",
                     spatial_ref = "4326",
                     force = FALSE)
  expect_equal(names(x), c("decimalLongitude",
                           "decimalLatitude",
                           "minimumElevationInMeters",
                           "maximumElevationInMeters"))
})

test_that("get_elevation stops when non-numeric data supplied", {
  x <- get_elevation(df = non_numerics,
                     decimal_lat = "decimalLatitude",
                     decimal_long = "decimalLongitude",
                     spatial_ref = "4326",
                     force = TRUE)
  expect_equal(is.null(x), TRUE)
})

test_that("get_elevation stops when non-numeric data supplied, verbose", {
  x <- get_elevation(df = non_numerics,
                     decimal_lat = "decimalLatitude",
                     decimal_long = "decimalLongitude",
                     spatial_ref = "4326",
                     force = FALSE)
  expect_equal(is.null(x), TRUE)
})