tests/testthat/test_check_bankline_points.R

In FluvialGeomorph/fluvgeo: A Package for Fluvial Geomorphic Analysis

library(fluvgeo)
context("check_bankline_points")

bankline_points <- fluvgeo::sin_bankline_points_sf

# Create some bad data
## Simulate the loop = 3, bend = 2, position = start point missing
bad1 <- bankline_points

bad1[!is.na(bad1$loop) &
          (bad1$loop == 3 & bad1$bend == 2 &
          !(bad1$position %in% c("apex", "end"))), ]$position <- NA
bad1[!is.na(bad1$loop) &
            (bad1$loop == 3 & bad1$bend == 2 &
               !(bad1$position %in% c("apex", "end"))), ]$bend <- NA
bad1[!is.na(bad1$loop) &
            (bad1$loop == 3 & bad1$bend == 2 &
             bad1$position %in% "apex"), ]$bend <- 0
bad1[!is.na(bad1$loop) &
            (bad1$loop == 3 & is.na(bad1$bend)), ]$loop <- NA



test_that("check bankline points", {
  expect_true(check_bankline_points(bankline_points))
})

test_that("check for malformed bankline_points", {
  expect_error(check_bankline_points(bad1))
})

test_that("not bankline points", {
  expect_error(check_bankline_points(fluvgeo::sin_flowline_sf))
  expect_error(check_bankline_points(fluvgeo::sin_loop_points_sf))
  expect_error(check_bankline_points(fluvgeo::sin_banklines_sf))
})