feat: add get_providers() to export the provider list with URLS, subd…

…omains, name and attribution

NAMESPACE

@@ -2,6 +2,7 @@
 
 export(create_provider)
 export(get_credit)
+export(get_providers)
 export(get_tiles)
 export(plot_tiles)
 importFrom(grDevices,dev.size)
@@ -15,7 +16,6 @@ importFrom(sf,st_crs)
 importFrom(sf,st_geometry)
 importFrom(sf,st_is)
 importFrom(sf,st_transform)
-importFrom(terra,'RGB<-')
 importFrom(terra,as.polygons)
 importFrom(terra,ext)
 importFrom(terra,gdal)

R/get_providers.R

@@ -0,0 +1,11 @@
+#' @title Providers
+#' @description
+#' List of builtin providers with their name, URL, subdomains and
+#' attribution text.
+#' @return A list of is returned.
+#' @export
+#' @examples
+#' get_providers()
+get_providers <- function(){
+  return(.global_maptiles$providers)
+}

inst/tinytest/test_maptiles.R

@@ -121,11 +121,6 @@ osm <- list(src = "OpenStreetMap",
             sub = NA,
             cit = "© OpenStreetMap contributors",
             ext = "png")
-stadia <- list(src = "Stadia.Stamen.Toner",
-               q = "https://tiles.stadiamaps.com/tiles/stamen_toner/{z}/{x}/{y}.png?api_key={apikey}",
-               sub = NA,
-               cit = "© Stadia Maps © Stamen Design © OpenMapTiles © OpenStreetMap contributors",
-               ext = "png")
 expect_identical(maptiles:::get_param("OpenStreetMap"), osm)
 expect_warning(maptiles:::get_param("Stamen.Toner"))
 expect_error(maptiles:::get_param("Esri.Delorme"))
@@ -185,7 +180,8 @@ osmouaich <- create_provider(
 expect_equal(get_credit(osmouaich), "ouaich ouaich yo")
 expect_null(get_credit("Wuwu"))
 
-
+# get_providers ----
+expect_equal(get_providers(), maptiles:::.global_maptiles$providers)
 
 if (home){
   # download_tiles() ----