tests/testthat/test-async.R

context("async requests")

test_that("It's possible to do async queries",{
  skip_on_cran()
  skip_if_offline()
  meas <- aq_measurements(city = "Escaldes-Engordany",
                          date_from = as.character(Sys.Date() - 1),
                          limit = 10)
  expect_that(meas, is_a("tbl_df"))
})

Try the ropenaq package in your browser

Any scripts or data that you put into this service are public.

ropenaq documentation built on Jan. 13, 2021, 6:21 a.m.