reduce forest country tests

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
 Version: 0.2.0
-Date: 2024-11-22 10:58:06 UTC
-SHA: 45836d91c48e355c88af29143ffee9e2ac6efb71
+Date: 2024-11-22 20:20:45 UTC
+SHA: 43dae5a06dee072501c209baefefebb945f9ad3b

tests/testthat/test-forest-country.R

@@ -9,13 +9,6 @@ lugo_mfe <- fd_forest_spain_mfe50(
   quiet    = TRUE
 )
 
-## Get all files
-forest_spain_list <- purrr::map(
-  metadata_forestdata$mfe_provinces,
-  fd_forest_spain_mfe50,
-  .progress = TRUE
-)
-
 ## 1.2. Unit tests ------------------
 
 ## Check one file
@@ -25,11 +18,11 @@ test_that("Data is downloaded properly", {
 })
 
 ## Check all files (~10min)
-## Check only 15
+## Check only 5
 test_that("All files are downloaded", {
   expect_no_error(
     purrr::map(
-      metadata_forestdata$mfe_provinces[1:15],
+      metadata_forestdata$mfe_provinces[1:5],
       fd_forest_spain_mfe50
     )
   )