update url variable name

Author: bart1

R/get_pvol_ro.R

@@ -6,13 +6,13 @@ get_pvol_ro <- function(radar, time, ..., call = rlang::caller_env()) {
   tryCatch(
     read_pvol_from_url_per_param(urls, param = "all", call = call),
     error = function(cnd) {
-      urls <- glue::glue(
+      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, param = "all", call = call)
+        read_pvol_from_url_per_param(urls_updated, param = "all", call = call)
       } else {
         return(cnd)
       }