diff --git a/R/download_test_support.R b/R/download_test_support.R index 22db73e9..3a507e9f 100644 --- 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 index 43e2396f..8dcd85e4 100644 --- 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) })