correctly returning the filename in ne_download() (closes #98)

ropensci · Feb 16, 2024 · fc39989 · fc39989
1 parent add8ee4
commit fc39989
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,18 @@
 
 - `rnaturalearth` now requires rnaturalearthdata (>= 1.0.0) and rnaturalearthhires (>= 1.0.0).
 
+-
+
+```r
+ne_download(
+  type = "MSR_50M",
+  category = "raster",
+  scale = 50,
+  load = TRUE
+)
+
+```
+
 # rnaturalearth 1.0.1
 
 - Do not test functions who rely on `rnaturalearthhires` because it is not available on CRAN.

diff --git a/R/ne_download.R b/R/ne_download.R
@@ -129,6 +129,10 @@ ne_download <- function(
     )
     return(spatial_object)
   } else {
+    file_name <- switch(category,
+      "raster" = file.path(destdir, file_name, paste0(file_name, ".tif")),
+      file.path(destdir, paste0(file_name, ".shp"))
+    )
     return(file_name)
   }
 }