tests/testthat/test-get_pvol_de.R

In getRad: Download Radar Data for Biological Research

test_that("Pvol for German can be downloaded", {
  skip_if_offline()
  time <- lubridate::floor_date(as.POSIXct(Sys.time(), tz = "Europe/Helsinki") - lubridate::hours(10), "5 mins")
  pvol <- expect_s3_class(get_pvol("deess", time, param = "all"), "pvol")
  expect_true(bioRad::is.pvol(pvol))
  expect_identical(lubridate::floor_date(pvol$datetime, "5 mins"), lubridate::with_tz(time, "UTC"))
})