fixed #832

r-tmap · Feb 9, 2024 · 975d14b · 975d14b
1 parent d5ff7c7
commit 975d14b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/tmapGrid_layers.R b/R/tmapGrid_layers.R
@@ -267,8 +267,8 @@ tmapGridRaster <- function(shpTM, dt, gp, bbx, facet_row, facet_col, facet_page,
 
  sel = which(tmapID %in% tid)
  tid2 = tmapID[sel]
-
- color[sel] = dt$col[match(tid2, dt$tmapID__)]
+ dt = merge_alpha(dt, name = "col")
+ color[sel] = dt$ca[match(tid2, dt$tmapID__)]
  }
 
 

diff --git a/R/tmapScale_.R b/R/tmapScale_.R
@@ -148,10 +148,10 @@ tmapScaleAuto = function(x1, scale, legend, o, aes, layer, layer_args, sortRev,
  } else if (attr(cls, "unique")) {
  if ("num" %in% cls) {
  sc = "ordinal"
- message("The visual variable \"", aes, "\" of the layer, \", layer", "\" contains a unique value. Therefore a discrete scale is applied (tm_scale_discrete).") 
+ message("The visual variable \"", aes, "\" of the layer \"", layer, "\" contains a unique value. Therefore a discrete scale is applied (tm_scale_discrete).") 
  } else {
  sc = "categorical" 
- message("The visual variable \"", aes, "\" of the layer, \", layer", "\" contains a unique value. Therefore a categorical scale is applied (tm_scale_categorical).")
+ message("The visual variable \"", aes, "\" of the layer \"", layer, "\" contains a unique value. Therefore a categorical scale is applied (tm_scale_categorical).")
  }