tests/testthat/test_check_slope_sinuosity.R

In FluvialGeomorph/fluvgeo: A Package for Fluvial Geomorphic Analysis

library(fluvgeo)
context("check_slope_sinuosity")


# Call the slope_sinuosity function for a cross section
sin_riffle_channel_ss <- slope_sinuosity(fluvgeo::sin_riffle_channel_sf,
                                         lead_n = 1, lag_n = 0,
                                         loess_span = 0.5,
                                         vert_units = "ft")

test_that("check slope_sinuosity ", {
  expect_true(check_slope_sinuosity(sin_riffle_channel_ss))
})