tests/testthat/test-01_utils.R

In dhope/ARUtools: Tools for management of Acoustic Recording Unit (ARU) data

test_that("date_join()", {
  x <- data.frame(site_id = sort(rep(LETTERS, 12)),
                  aru_id = rep(c("aa", "bb"), 6)) |>
    dplyr::arrange(site_id, aru_id) |>
    dplyr::mutate(date = sort(seq(lubridate::as_date("2020-06-01"),
                                  by = "1 day",
                                  length.out = dplyr::n())),
                  file = 1:dplyr::n())

  y <- dplyr::mutate(x, gps = rep(c(1,1,1,2,2,2), dplyr::n()/6)) |>
    dplyr::group_by(site_id, aru_id, gps) |>
    dplyr::summarize(date1 = min(date), date2 = max(date), .groups = "drop") |>
    dplyr::mutate(latitude = seq(43, 45, length.out = dplyr::n()),
                  longitude = seq(-85, -75, length.out = dplyr::n()),
                  date_range = lubridate::interval(date1, date2)) |>
    dplyr::arrange(site_id, aru_id, gps) |>
    dplyr::select(-date1, -date2)


  expect_silent(j <- date_join(x, y, by = c("site_id", "aru_id"), id = "file"))
  expect_true(all(j[1, c("latitude", "longitude")] == y[1, c("latitude", "longitude")]))
  expect_true(all(j[1 + 3*3, c("latitude", "longitude")] == y[1 + 3, c("latitude", "longitude")]))
  expect_true(all(j[1 + 6*3, c("latitude", "longitude")] == y[1 + 6, c("latitude", "longitude")]))

  x <- dplyr::select(x, -aru_id)
  y <- dplyr::select(y, -aru_id)
  expect_silent(date_join(x, y, by = c("site_id"), id = "file"))
})


test_that("sf_to_df() / df_to_sf()", {

  # GPS
  sf1 <- sf::st_as_sf(example_clean,
                      coords = c("longitude", "latitude"),
                      crs = 4326)

  expect_silent(df1 <- sf_to_df(sf1))
  expect_false(inherits(df1, "sf"))
  expect_equal(example_clean, df1)

  expect_silent(sf2 <- df_to_sf(df1, sf1))
  expect_s3_class(sf2, "sf")
  expect_equal(sf2, sf1)

  # Non-GPS
  sf3 <- sf::st_as_sf(example_clean,
                      coords = c("longitude", "latitude"),
                      crs = 4326) |>
    sf::st_transform(crs = 3161)

  expect_silent(df2 <- sf_to_df(sf3))
  expect_false(inherits(df2, "sf"))
  expect_equal(example_clean, df2)

  expect_silent(sf4 <- df_to_sf(df2, sf3))
  expect_s3_class(sf4, "sf")
  expect_equal(sf4, sf3)

  # No change
  expect_silent(df <- sf_to_df(example_clean))
  expect_false(inherits(df2, "sf"))
  expect_equal(example_clean, df)

  expect_silent(sf_false <- df_to_sf(df, example_clean))
  expect_false(inherits(sf_false, "sf"))
  expect_equal(sf_false, df)

})