Sys.sleep()'s again

NIEHS · Feb 21, 2024 · c072d79 · c072d79
1 parent 00d3734
commit c072d79
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/R/download_test_support.R b/R/download_test_support.R
@@ -26,7 +26,7 @@ check_url_status <- function(
   }
 
   status <- hd$status_code
-  Sys.sleep(2)
+  Sys.sleep(1.5)
   return(status == http_status_ok)
 }
 

diff --git a/tests/testthat/test-download_functions.R b/tests/testthat/test-download_functions.R
@@ -964,7 +964,6 @@ testthat::test_that("MODIS download error cases.", {
                           commands_path = commands_path,
                           url_status = url_status)
   # remove file with commands after test
-  Sys.sleep(1)
   file.remove(commands_path)
 })