...

r-tmap · Aug 1, 2024 · 8d2f707 · 8d2f707
1 parent 340c7a8
commit 8d2f707
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/R/tmapGridComp_leg_portrait.R b/R/tmapGridComp_leg_portrait.R
@@ -513,6 +513,8 @@ tmapGridLegPlot.tm_legend_standard_portrait = function(comp, o, fH, fW) {
 
  gpars = gp_to_gpar(gp, split_to_n = nlev, o = o, type = comp$type)
 
+ po(gp$size)
+
  diffAlpha = !anyNA(c(gp$fill_alpha, gp$col_alpha)) && !(length(gp$fill_alpha) == length(gp$col_alpha) && all(gp$fill_alpha == gp$col_alpha))
  if (diffAlpha) {
  gpars1 = gp_to_gpar(gp, split_to_n = nlev, o = o, type = comp$type, sel = "fill")

diff --git a/R/tmapLeafletLegend.R b/R/tmapLeafletLegend.R
@@ -175,7 +175,7 @@ tmapLeaflet_legend = function(cmp, lf, o, orientation) {
 
 
  symbols = do.call(makeSymbolIcons2, gp2)
- po(sort(gp2$width, decreasing = T))
+ #po(sort(gp2$width, decreasing = T))
 
  symbols$iconWidth = gp2$width#, length(symbols$iconUrl))
  symbols$iconHeight = gp2$height#, length(symbols$iconUrl))

diff --git a/R/tmapLeaflet_layers.R b/R/tmapLeaflet_layers.R
@@ -180,7 +180,7 @@ tmapLeafletSymbols = function(shpTM, dt, pdt, popup.format, hdt, idt, gp, bbx, f
  names(gp2)[names(gp2) == 'stroke-width'] = "strokeWidth"
  gp2$baseSize = 20
 
- po(sort(gp2$width, decreasing = T))
+ #po(sort(gp2$width, decreasing = T))