tests/testthat/test-get_pvol_dk.R

In getRad: Download Radar Data for Biological Research

test_that("Pvol for Danish can be downloaded", {
  skip("Because no key for Denmark is available in the testing environment")
  time <- lubridate::floor_date(
    as.POSIXct(Sys.time(), tz = "Europe/Helsinki") - lubridate::hours(10),
    "5 mins"
  ) - lubridate::days(90)
  pvol <- expect_s3_class(get_pvol("dkbor", time, param = "all"), "pvol")
  expect_true(bioRad::is.pvol(pvol))
  expect_identical(lubridate::floor_date(pvol$datetime, "5 mins"), lubridate::with_tz(time, "UTC"))
})