fixed #667

R/tmapLeafletLegend.R

@@ -122,13 +122,27 @@ tmapLeaflet_legend = function(cmp, lf, o, orientation) {
  domain = val, 
  na.color=colNA, 
  alpha = FALSE)
+
+ brks = pretty(cmp$limits, 7)
+
+ trns = function(x) {
+ f = (x-cmp$limits[1]) / diff(cmp$limits)
+ y = cmp$tr$fun(cmp$limits)
+ x2 = y[1] + diff(y) * f
+ cmp$tr$rev(x2)
+ }
+
  lf |> leaflegend::addLegendNumeric(position=legpos, 
  orientation = orientation,
  group = group,
  height = {if (orientation == "horizontal") 20 else 200},
  width = {if (orientation == "vertical") 20 else 200},
  pal=pal,
  values=val, 
+ numberFormat = function(x) {
+ prettyNum(trns(x), format = "f", big.mark = ",", digits =
+ 3, scientific = FALSE)
+ },
  #na.label = textNA, 
  title=title, 
  fillOpacity=cmp$gp3$alpha, 

R/tmapScaleContinuous.R

@@ -246,7 +246,7 @@ tmapScaleContinuous = function(x1, scale, legend, o, aes, layer, layer_args, sor
  labels = c(labels, label.na)
  attr(labels, "align") = labels.align
  }
- #attr(vvalues, "style") = style
+
 
 
  legend = within(legend, {
@@ -257,7 +257,10 @@ tmapScaleContinuous = function(x1, scale, legend, o, aes, layer, layer_args, sor
  vneutral = value.neutral
  na.show = get("na.show", envir = parent.env(environment()))
  scale = "continuous"
+ tr = tr
+ limits = limits
  })
+ # NOTE: tr and limits are included in the output to facilitate the transformation of the leaflet continuous legend ticks (https://github.com/rstudio/leaflet/issues/665)
 
  if (submit_legend) {
  if (bypass_ord) {