tests/testthat/test-get_pvol_cz.R

In getRad: Download Radar Data for Biological Research

test_that("Check if the available attributes changed", {
  skip_if_offline()
  expect_identical(
    httr2::request("http://opendata.chmi.cz/meteorology/weather/radar/sites/ska") |>
      httr2::req_perform() |>
      httr2::resp_body_html() |>
      xml2::xml_find_all("//a/@href") |>
      xml2::xml_text() |>
      utils::tail(-1), c(
      "vol_phidp/", "vol_rhohv/", "vol_u/", "vol_v/", "vol_w/", "vol_z/",
      "vol_zdr/"
    )
  )
})
test_that("Pvol for Czechia 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("czska",
    time,
    param = "all"
  ), "pvol")
  expect_true(bioRad::is.pvol(pvol))
  expect_identical(
    lubridate::floor_date(pvol$datetime, "5 mins"),
    lubridate::with_tz(time, "UTC")
  )
})