tests/testthat/test-get_sensor_history.R

In PurpleAir: Query the 'PurpleAir' Application Programming Interface

test_that("get_sensor_history works", {
  skip_on_os(c("windows", "linux", "solaris"))
  skip_on_cran()
  testthat::skip_if_offline()
  testthat::skip_if(Sys.getenv("PURPLE_AIR_API_KEY") == "", "no PurpleAir API key present")
  get_sensor_history(
    sensor_index = 175413,
    fields = c("pm1.0_cf_1", "pm1.0_atm", "pm2.5_cf_1", "pm2.5_atm"),
    start_timestamp = as.POSIXct("2024-07-02"),
    end_timestamp = as.POSIXct("2024-07-05")
  ) |>
    expect_s3_class("tbl_df")
})