tests/testthat/test-read_sb_growth_parameter.R

In cercospoRa: Process Based Epidemiological Model for Cercospora Leaf Spot of Sugar Beet

test_that("example returns expected outputs", {
  f_name <- system.file("extdata", "uav_img",
                        package = "cercospoRa")
  epidemic_onset_param <-
    read_sb_growth_parameter(img_files = list.files(f_name,pattern = "tif",
                                                    full.names = TRUE),
                             img_dates = as.POSIXct(
                               c("2022-06-14","2022-06-28"),tz = "UTC"),
                             target_res = 10)
  expect_s4_class(epidemic_onset_param,"SpatRaster")
  expect_equal(terra::nlyr(epidemic_onset_param),2)
  expect_equal(names(epidemic_onset_param),
               c("2022-06-14", "2022-06-28"))

})