#806

NAMESPACE

@@ -1,17 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
-
-if(getRversion() >= "3.6.0") {
- S3method(knitr::knit_print, tmap)
-} else {
- export(knit_print.tmap)
-}
-
-if(getRversion() >= "3.6.0") {
- S3method(knitr::knit_print, tmap_arrange)
-} else {
- export(knit_print.tmap_arrange)
-}
 S3method("+",tmap)
 S3method(print,tm_element)
 S3method(print,tm_shape)
@@ -210,6 +198,16 @@ export(tmap_save)
 export(tmap_style)
 export(ttm)
 export(ttmp)
+if(getRversion() >= "3.6.0") {
+ S3method(knitr::knit_print, tmap)
+} else {
+ export(knit_print.tmap)
+}
+if(getRversion() >= "3.6.0") {
+ S3method(knitr::knit_print, tmap_arrange)
+} else {
+ export(knit_print.tmap_arrange)
+}
 import(classInt)
 import(cols4all)
 import(data.table)
@@ -235,7 +233,6 @@ importFrom(grDevices,dev.size)
 importFrom(grDevices,png)
 importFrom(grDevices,rgb)
 importFrom(htmlwidgets,saveWidget)
-importFrom(leaflet,providers)
 importFrom(rlang,expr)
 importFrom(rlang,missing_arg)
 importFrom(utils,browseURL)

R/process_meta.R

@@ -130,10 +130,11 @@ process_meta = function(o, d, cdt, aux) {
  o[paste0("grid.", names(a))] = a
  }
 
- bbx = d$bbox[[1]]
-
+ # add credits into to o (for view mode in order to reset default attribution text)
+ cid = which(vapply(cdt$comp, FUN = inherits, "tm_credits", FUN.VALUE = logical(1)))[1]
+ o$credits.defined = (!is.na(cid))
 
-
+ bbx = d$bbox[[1]]
 
  within(o, {
  # sasp shape aspect ratio (NA if free coordinates)

R/tmapLeafletAux.R

@@ -13,7 +13,14 @@ tmapLeafletTiles = function(bi, bbx, facet_row, facet_col, facet_page, id, pane,
 
  tiles = .TMAP_LEAFLET$tiles[[id]][[bi]]
 
- for (s in tiles$server) lf = leaflet::addProviderTiles(lf, provider = s, group = s)
+ if (o$credits.defined) {
+ opt = list(attribution = "")
+ } else {
+ opt = list()
+ }
+
+ for (s in tiles$server) lf = leaflet::addProviderTiles(lf, provider = s, group = s, options = opt)
+
  assign_lf(lf, facet_row, facet_col, facet_page)
  NULL 
 }

R/tmapLeafletComp.R

@@ -109,6 +109,7 @@ tmapLeafletLegPlot.tm_scalebar = function(comp, lf, o) {
 
 #' @export
 tmapLeafletCompPrepare.tm_credits = function(comp, o) {
+ comp$show = TRUE
  comp
 }
 
@@ -126,9 +127,9 @@ tmapLeafletCompWidth.tm_credits = function(comp, o) {
 
 #' @export
 tmapLeafletLegPlot.tm_credits = function(comp, lf, o) {
- #lf %>% leafem::addLogo(system.file(paste0("img/credits_", comp$type, ".png"), package = "tmap"), src = "local", position = paste(unlist(comp$position[c("pos.v", "pos.h")]), collapse = ""), width = 120, height = 120)
- message("tm_credits not implemented yet for view mode")
- lf
+ #lf %>% leafem::addLogo(system.file(paste0("img/credits_", comp$type, ".png"), package = "tmsap"), src = "local", position = paste(unlist(comp$position[c("pos.v", "pos.h")]), collapse = ""), width = 120, height = 120)
+ #message("tm_credits not implemented yet for view mode")
+ lf %>% leaflet::addTiles(urlTemplate = "", attribution = comp$text)
 }
 
 

R/tmapLeafletInit.R

@@ -52,7 +52,7 @@ tmapLeafletInit = function(o, return.asp = FALSE, vp) {
  if (!is.na(o$set.zoom.limits[1])) leaflet_opts$minZoom = o$set.zoom.limits[1]
  if (!is.na(o$set.zoom.limits[2])) leaflet_opts$maxZoom = o$set.zoom.limits[2]
 
- leaflet_opts$attributionControl = FALSE
+ leaflet_opts$attributionControl = TRUE