Manual removal of pem

- testthat intermediate outputs do not seem ephemeral: manual removal is enforced

R/download.R

@@ -320,7 +320,8 @@ download_ecoregion_data <- function(
   #### 5. define download URL
   download_epa_certificate(
     epa_certificate_path = epa_certificate_path,
-    certificate_url = certificate_url)
+    certificate_url = certificate_url
+  )
 
   download_url <- paste0(
     "https://gaftp.epa.gov/EPADataCommons/ORD/Ecoregions/us/",
@@ -2448,7 +2449,7 @@ download_nei_data <- function(
     system.file("extdata/cacert_gaftp_epa.pem",
                 package = "amadeus"),
   certificate_url =
-  "http://cacerts.digicert.com/DigiCertGlobalG2TLSRSASHA2562020CA1-1.crt"
+    "http://cacerts.digicert.com/DigiCertGlobalG2TLSRSASHA2562020CA1-1.crt"
 ) {
   #### 1. check for data download acknowledgement
   download_permit(data_download_acknowledgement = data_download_acknowledgement)

tests/testthat/test-download_functions.R

@@ -1058,6 +1058,12 @@ testthat::test_that("Test error cases in EPA gaftp sources 1", {
   tdir <- tempdir()
   directory_to_save <- testthat::test_path("..", "testdata/", "")
   certificate <- file.path(tdir, "cacert_gaftp_epa.pem")
+  # remove if there is a preexisting file
+  if (file.exists(certificate)) {
+    file.remove(certificate)
+    file.remove(gsub("pem", "crt", certificate))
+  }
+
   # run download function
   year_target <- c(2017L)
   testthat::expect_message(
@@ -1091,6 +1097,12 @@ testthat::test_that("Test error cases in EPA gaftp sources 2", {
   tdir <- tempdir(check = TRUE)
   directory_to_save <- testthat::test_path("..", "testdata/", "")
   certificate <- file.path(tdir, "cacert_gaftp_epa.pem")
+  # remove if there is a preexisting file
+  if (file.exists(certificate)) {
+    file.remove(certificate)
+    file.remove(gsub("pem", "crt", certificate))
+  }
+
   # run download function
 
   testthat::expect_message(