tests/testthat/test-add_pollutants.R

In geomarker-io/schwartzGeohashPM: Add PM2.5, NO2, and O3 Concentrations to Data Based on Geohash

test_that("add_pollutants downloads chunks and joins to data", {
  delete_test_download_folder()
  withr::with_envvar(new = c(
    "AWS_ACCESS_KEY_ID" = NA,
    "AWS_SECRET_ACCESS_KEY" = NA
  ), {
    expect_identical(
      add_schwartz_pollutants(example_input(), confirm = FALSE),
      example_output()
    )
  })
  delete_test_download_folder()
})

test_that("add_pollutants downloads chunks and joins to data with missing sitecode", {
  delete_test_download_folder()
  withr::with_envvar(new = c(
    "AWS_ACCESS_KEY_ID" = NA,
    "AWS_SECRET_ACCESS_KEY" = NA
  ), {
    expect_identical(
      add_schwartz_pollutants(example_input_missing_sitecode(), confirm = FALSE),
      example_output_missing_sitecode()
    )
  })
  delete_test_download_folder()
})

test_that("add_pollutants downloads chunks and joins to data with missing coordinates", {
  delete_test_download_folder()
  withr::with_envvar(new = c(
    "AWS_ACCESS_KEY_ID" = NA,
    "AWS_SECRET_ACCESS_KEY" = NA
  ), {
    expect_identical(
      add_schwartz_pollutants(example_input_missing_coords(), confirm = FALSE), ### lat lon become not missing??
      example_output_missing_coords()
    )
  })
  delete_test_download_folder()
})

test_that("add_pollutants downloads chunks and joins to data with out of order columns", {
  delete_test_download_folder()
  withr::with_envvar(new = c(
    "AWS_ACCESS_KEY_ID" = NA,
    "AWS_SECRET_ACCESS_KEY" = NA
  ), {
    expect_identical(
      add_schwartz_pollutants(example_input_out_of_order_cols(), confirm = FALSE),
      example_output_out_of_order_cols()
    )
  })
  delete_test_download_folder()
})

test_that("add_pollutants downloads chunks and joins to data with out of range dates", {
  delete_test_download_folder()
  d <- example_input()
  d$start_date[1] <- "2020-01-01"
  d$end_date[1] <- "2020-01-02"
  withr::with_envvar(new = c(
    "AWS_ACCESS_KEY_ID" = NA,
    "AWS_SECRET_ACCESS_KEY" = NA
  ), {
    expect_identical(
      add_schwartz_pollutants(d, confirm = FALSE),
      example_output_out_of_range_dates()
    )
  })
  delete_test_download_folder()
})