Make read_map fail gracefully

hsvab · Nov 3, 2023 · e4f643a · e4f643a
1 parent 400d98f
commit e4f643a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/read_map.R b/R/read_map.R
@@ -82,6 +82,9 @@ read_map <- function(city = "S\u00E3o Paulo",
   # parameter and saving the function return in "temporary_filename"
   temporary_filename <- download_piggyback(filename_to_download, force_download)
 
+  # check if download worked
+  if(is.null(temporary_filename)) { return(NULL) }
+
   # Reading shape files
   od_map <- sf::read_sf(temporary_filename)