tests/testthat/test-etl_pmn.R

In bjoleary/fdadata: Access US FDA Data

# Setup.
#

test_that("refreshing the data from file works", {
  testthat::skip("Skipping refresh of data")
  filename_roots <- c(
    "pmn7680",
    "pmn8185",
    "pmn8690",
    "pmn9195",
    "pmn96cur"
  )
  filename_pmn_txt <- paste(filename_roots, ".txt", sep = "")
  filename_accessed_datetime <- "pmn_accessed.txt"

  errors <- lapply(filename_pmn_txt, function(x) {
    if (!file.exists(x)) {
      value <- paste("\n\tMissing file:", x)
    }
  }) %>%
    unlist()
  if (!is.null(errors)) {
    data <- etl_pmn(TRUE)
  } else if (is.null(errors)) {
    data <- etl_pmn(FALSE)
  }
  data <- etl_pmn(FALSE)
  expect_equal(data, TRUE)
})