Merge pull request #168 from aloftdata/167-romania-has-once-in-a-while-a-strange-file-uri

Fix (#167) romania deviating files once in a while

Author: bart1

NEWS.md

@@ -2,6 +2,7 @@
 
 * Implement reading `vpts` data from a local directory (#135).
 * Clarify HTTP 429 error for the Netherlands (#165).
+* For Romania match deviating file format (thanks to Sorin Burcea, #167).
 
 # getRad 0.2.4
 

R/get_pvol_ro.R

@@ -3,5 +3,19 @@ get_pvol_ro <- function(radar, time, ..., call = rlang::caller_env()) {
   urls <- glue::glue(
     "https://opendata.meteoromania.ro/radar/{toupper(substr(radar,3,5))}/{toupper(substr(radar,3,5))}_{strftime(time,'%Y%m%d%H%M', tz='UTC')}0200{params}.hdf"
   )
-  read_pvol_from_url_per_param(urls, param = "all", call = call)
+  tryCatch(
+    read_pvol_from_url_per_param(urls, param = "all", call = call),
+    error = function(cnd) {
+      urls_updated <- glue::glue(
+        "https://opendata.meteoromania.ro/radar/{toupper(substr(radar,3,5))}/{toupper(substr(radar,3,5))}_{strftime(time,'%Y%m%d%H%M', tz='UTC')}0300{params}.hdf"
+      )
+      if (
+        rlang::has_name(cnd, "parent") && inherits(cnd$parent, "httr2_http_404")
+      ) {
+        read_pvol_from_url_per_param(urls_updated, param = "all", call = call)
+      } else {
+        return(cnd)
+      }
+    }
+  )
 }