From 8d2f707c561c16ad3f7c454395f6caf7e721ba6d Mon Sep 17 00:00:00 2001 From: mtennekes Date: Thu, 1 Aug 2024 21:41:00 +0200 Subject: [PATCH] ... --- R/tmapGridComp_leg_portrait.R | 2 ++ R/tmapLeafletLegend.R | 2 +- R/tmapLeaflet_layers.R | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/R/tmapGridComp_leg_portrait.R b/R/tmapGridComp_leg_portrait.R index 9f3f8278..96c2c841 100644 --- 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 index dec70bce..51e8c997 100644 --- 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 index 5e760c26..216cad44 100644 --- 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))