Transportation is now href

ropensci · Jan 18, 2021 · 16b14e1 · 16b14e1
1 parent 901b5ba
commit 16b14e1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/get_tiles.R b/R/get_tiles.R
@@ -110,7 +110,7 @@ get_tiles <- function(bbox,
     services %in% names(list_of_services)))
 
   method <- vector("list")
-  method$href <- c("3DEPElevation", "USGSNAIPPlus")
+  method$href <- c("3DEPElevation", "USGSNAIPPlus", "transportation")
   method$img <- list_of_services[!(list_of_services %in% method$href)]
 
   tif_files <- c("3DEPElevation")

diff --git a/R/hit_api.R b/R/hit_api.R
@@ -79,7 +79,7 @@ hit_national_map_api <- function(bbox,
   }
 
   method <- vector("list")
-  method$href <- c("3DEPElevation", "USGSNAIPPlus")
+  method$href <- c("3DEPElevation", "USGSNAIPPlus", "transportation")
 
   first_corner <- bbox@bl
   second_corner <- bbox@tr