tests/testthat/test-get_ems_data.R

In bcgov/rems: Get Data from British Columbia's Environmental Monitoring System

context("get_ems_data")

test_that("reading metadata works", {
  skip_on_cran()
  skip_if_offline()
  ret <- get_databc_metadata()
  expect_is(ret, "data.frame")
  expect_equal(ncol(ret), 4)
  expect_equal(lapply(ret, class),
    list(filename = "character",
      server_date = c("POSIXct", "POSIXt"),
      label = "character",
      filetype = "character"))
  expect_false(any(duplicated(ret$filename)))

  # Test extracting for each
  expect_equal(get_file_metadata("historic")[["filetype"]], "csv")
  expect_equal(get_file_metadata("historic", "zip")[["filetype"]], "zip")

  expect_equal(get_file_metadata("2yr")[["filetype"]], "csv")

  expect_equal(get_file_metadata("4yr")[["filetype"]], "csv")
  expect_equal(get_file_metadata("4yr", "zip")[["filetype"]], "zip")

  expect_error(get_file_metadata("foo"), "'which' needs to be one of")
})

test_that("httr_progress works", {
  skip_on_cran()
  skip_if_offline()

  expect_null(httr_progress())
})

test_that("making file hash works", {
  expect_equal(nchar(make_file_hash("sha1test")), 40)
})

test_that("handle_zip works", {
  test_zip <- withr::local_file(tempfile(fileext = ".zip"))
  zip::zip(test_zip, "test_historic.csv")
  expect_equal(
    read_csv(handle_zip(test_zip)),
    read_csv(handle_zip("test_historic.csv"))
  )
  expect_error(handle_zip("not_zip_or_csv.txt"))
})

test_that("get_ems_data works", {
  expect_message(
    dat <- get_ems_data(ask = FALSE, dont_update = TRUE),
    "Fetching data from cache"
  )

  expect_s3_class(dat, "data.frame")
  expect_equal(names(dat), wq_cols())

  expect_message(
    dat <- get_ems_data("4yr", ask = FALSE, dont_update = TRUE, cols = "all"),
    "Fetching data from cache"
  )

  expect_s3_class(dat, "data.frame")
  expect_equal(names(dat), names(col_specs()))

  expect_equal(nrow(get_ems_data(n = 1)), 1)

  expect_true(
    get_ems_data(ask = FALSE, check_only = TRUE)
  )

  on.exit(cache_test_files("2yr"))
  remove_data_cache("2yr")
  expect_error(get_ems_data(dont_update = TRUE), "You have requested")

})