finish leaflet.providers integration

Author: leslie-huang

NAMESPACE

@@ -138,6 +138,9 @@ export(popupOptions)
 export(previewColors)
 export(projectRasterForLeaflet)
 export(providerTileOptions)
+export(providers)
+export(providers.details)
+export(providers.version_num)
 export(removeControl)
 export(removeGeoJSON)
 export(removeImage)

R/plugin-providers.R

@@ -1,6 +1,6 @@
 leafletProviderDependencies <- function() {
   list(
-    leaflet.providers::providers()$html_dependency,
+    providers.html_dependency,
     htmltools::htmlDependency(
       "leaflet-providers-plugin",
       packageVersion("leaflet"),
@@ -67,12 +67,29 @@ providerTileOptions <- function(errorTileUrl = "", noWrap = FALSE,
 #'
 #' @format A list of characters
 #' @source \url{https://github.com/leaflet-extras/leaflet-providers/blob/master/leaflet-providers.js}
-"providers"
+#'
+#' @export
+providers <- NULL
 
 #' Providers Details
 #'
 #' List of all providers with their variations and additional info
 #'
 #' @format A list of lists (JSON)
 #' @source \url{https://github.com/leaflet-extras/leaflet-providers/blob/master/leaflet-providers.js}
-"providers.details"
+#'
+#' @export
+providers.details <- NULL
+
+
+#' Providers version number
+#'
+#' Version number of the providers data.
+#'
+#' @format character
+#' @source \url{https://github.com/leaflet-extras/leaflet-providers/blob/master/leaflet-providers.js}
+#'
+#' @export
+providers.version_num <- NULL
+
+providers.html_dependency <- NULL

R/zzz.R

@@ -1,5 +1,8 @@
 .onLoad <- function(libname, pkgname) {
-  providers <<- leaflet.providers::providers()$providers
-  providers.details <<- leaflet.providers::providers()$providers_details
-  providers.version_num <<- leaflet.providers::providers()$version_num
+  providers_info <- leaflet.providers::providers()
+
+  providers <<- providers_info$providers
+  providers.details <<- providers_info$providers_details
+  providers.version_num <<- providers_info$version_num
+  providers.html_dependency <<- providers_info$html_dependency
 }