tests/testthat/test-path2edge.R

In Rafnuss/GeoPressureR: Global Positioning by Atmospheric Pressure

library(testthat)
library(GeoPressureR)

# Set working directory
setwd(system.file("extdata", package = "GeoPressureR"))

tag <- tag_create("18LX", quiet = TRUE) |>
  tag_label(quiet = TRUE) |>
  tag_set_map(
    extent = c(-16, 23, 0, 50),
    scale = 1,
    known = data.frame(
      stap_id = 1,
      known_lon = 17.05,
      known_lat = 48.9
    )
  )

ind_m <- matrix(c(
  1652, 1652, 1652, 1652, 1652, 1652, 1652, 1652, 1652, 1652, 1653, 1606, 1653,
  1504, 1604, 1704, 1504, 1653, 1753, 1701, 1805, 1457, 1408, 1657, 1609, 1903,
  1506, 1757, 1856, 1804, 1607, 1514, 1611, 1457, 1860, 1802, 1759, 1609, 1760,
  1208, 1505, 1314, 1559, 1357, 1758, 1852, 1661, 1706, 1862, 1358
), nrow = 10)
path_m <- ind2path(ind_m, tag)

ind_c <- c(1652, 1603, 1755, 1708, 1607)
path_c <- ind2path(ind_c, tag)

ind_c_na <- ind_c
ind_c_na[3] <- NA
path_c_na <- ind2path(ind_c_na, tag)

ind_m_na <- ind_m
ind_m_na[, 5] <- NA
path_m_na <- ind2path(ind_m_na, tag)

test_that("path2edge() | default", {
  expect_no_error(edge_c <- path2edge(path_c, tag))
  expect_equal(nrow(edge_c), nrow(path_c) - 1)

  expect_no_error(edge_m <- path2edge(path_m, tag))

  expect_no_error(edge_c_na <- path2edge(path_c_na, tag))

  expect_no_error(edge_c_na <- path2edge(path_m_na, tag))
})