tests/testthat/test-get_moving_window.R

In dynamicSDM: Species Distribution and Abundance Modelling at High Spatio-Temporal Resolution

test_that("stops if no spatial.res.degrees and no spatial.res.metres", {
  expect_error(get_moving_window(
    radial.distance = 100,
    spatial.ext = c(11.72083, 40.84583, -46.9625 , -4.425)
  ))
})

test_that("stops if no radial.distance", {
  expect_error(
    get_moving_window(
      spatial.res.degrees = 0.3,
      spatial.res.metres = 1000,
      spatial.ext = c(11.72083, 40.84583, -46.9625 , -4.425)
    )
  )
})

test_that("stops if spatial.res.degrees class is not numeric", {
  expect_error(
    get_moving_window(
      radial.distance = 100,
      spatial.res.degrees = "zero point five degrees",
      spatial.res.metres = 1000,
      spatial.ext = c(11.72083, 40.84583, -46.9625 , -4.425)
    )
  )
})

test_that("stops if spatial.res.degrees given but spatial.ext not given", {
  expect_error(get_moving_window(
    radial.distance = 100,
    spatial.res.degrees = 0.5
  ))
})

test_that(
  "stops if spatial.res.degrees and spatial.ext class numeric and incorrect length invalid",
  {
    expect_error(
      get_moving_window(
        radial.distance = 100,
        spatial.res.degrees = 0.5,
        spatial.ext = c(2, 3, 4)
      )
    )
  }
)

test_that(
  "stops if spatial.res.degrees and spatial.ext class numeric and incorrect length invalid",
  {
    expect_error(
      get_moving_window(
        radial.distance = 100,
        spatial.res.degrees = 0.5,
        spatial.ext = c(2, 3, 4)
      )
    )
  }
)

test_that("works with spatial.ext as numeric", {
  numeric <- c(12, 36, -35, -12)
  results <- get_moving_window(
      radial.distance = 100,
      spatial.res.degrees = 0.5,
      spatial.ext = numeric
    )
  expect_equal(class(results)[1], "matrix")
})

test_that("works with spatial.ext as Extent", {
  Extent <- terra::ext(c(12, 36, -35, -12))
  results <- get_moving_window(
      radial.distance = 100,
      spatial.res.degrees = 0.5,
      spatial.ext = Extent
    )
  expect_equal(class(results)[1], "matrix")
})

test_that("works with spatial.ext as raster", {
  numeric <- c(12, 36, -35, -12)
  raster <- terra::rast(terra::ext(numeric))
  results <- get_moving_window(
      radial.distance = 100000,
      spatial.res.degrees = 0.5,
      spatial.ext = raster
    )
  expect_equal(class(results)[1], "matrix")
})

test_that("works with spatial.ext as polygon", {
  polygon <-  sf::st_polygon(list(cbind(c(20, 12, 36, 36,20), c(-35, -12, -35, -12,-35))))
  results <- get_moving_window(
      radial.distance = 100000,
      spatial.res.degrees = 0.5,
      spatial.ext = polygon
    )
  expect_equal(class(results)[1], "matrix")
})

data(sample_extent_data)

test_that("works with spatial.ext as sf", {
  results <- get_moving_window(
      radial.distance = 100000,
      spatial.res.degrees = 0.5,
      spatial.ext = sample_extent_data
    )
  expect_equal(class(results)[1], "matrix")
})


test_that("Error if wrong class spatial.res.metres", {
  expect_error(get_moving_window(radial.distance = 100000, spatial.res.metres =
                                   "300m"))
})