check bearer

worldbank · May 9, 2024 · 0619b35 · 0619b35
1 parent 38bfaaa
commit 0619b35
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/blackmarbler.R b/R/blackmarbler.R
@@ -466,6 +466,10 @@ download_raster <- function(file_name,
       message(response)
     }
 
+    if(response$all_headers[[1]]$status != 200){
+      message("**Error in downloading data; bearer token likely invalid.** Try regenerating the bearer token; please see this link for instructions to obtain a bearer token: https://github.com/worldbank/blackmarbler?tab=readme-ov-file#bearer-token-")
+    }
+
   }
 
   r <- file_to_raster(download_path,