diff --git a/R/plugin-providers.R b/R/plugin-providers.R index f7ec2cd61..b67b32d90 100644 --- a/R/plugin-providers.R +++ b/R/plugin-providers.R @@ -89,7 +89,19 @@ NULL # Active binding added in zzz.R "providers.src" +# Active binding added in zzz.R +"providers.dep" + get_providers_html_dependency <- function() { + if (is.null(providers.dep)) { + return(create_temp_providers_html_dependency()) + } + + providers.dep +} + +create_temp_providers_html_dependency <- function() { + # for compatibility with older versions of leaflet.providers tmpfile <- file.path(tempdir(), paste0("leaflet-providers_", providers.version_num, ".js")) if (!file.exists(tmpfile)) { diff --git a/R/zzz.R b/R/zzz.R index f959c1205..31bc5aca4 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -15,4 +15,8 @@ leaflet_envir <- environment() makeActiveBinding("providers.src", function() { leaflet.providers::providers_loaded()$src }, env = leaflet_envir) + + makeActiveBinding("providers.dep", function() { + leaflet.providers::providers_loaded()$dep + }, env = leaflet_envir) }