climate ver. 1.2.1

bczernecki · Oct 28, 2024 · ecdca8a · ecdca8a
1 parent a9fdc01
commit ecdca8a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/meteo_imgw_daily.R b/R/meteo_imgw_daily.R
@@ -206,6 +206,7 @@ meteo_imgw_daily_bp = function(rank,
         temp2 = tempfile()
         test_url(addresses_to_download[j], temp)
         unzip(zipfile = temp, exdir = temp2)
+        file1 = paste(temp2, dir(temp2), sep = "/")[1]
         data1 = imgw_read(translit, file1)
         colnames(data1) = meta[[1]]$parameters
         # remove status

diff --git a/tests/testthat/test-meteo_imgw_daily.R b/tests/testthat/test-meteo_imgw_daily.R
@@ -22,7 +22,7 @@ test_that("check_column_with_coordinates", {
     station_with_coordinates = meteo_imgw_daily(rank = "precip",
                                                 year = 2002,
                                                 coords = TRUE,
-                                                station = "IMBRAMOWICE")
+                                                station = "IMBRAMOWICE", allow_failure = FALSE)
     if (is.data.frame(station_with_coordinates)) {
       expect_true(any(colnames(station_with_coordinates) %in% c("X", "Y")))
     }