fixed examples #819

r-tmap · Jul 23, 2024 · d302928 · d302928
1 parent 75c14e3
commit d302928
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/step1_helper_facets.R b/R/step1_helper_facets.R
@@ -107,7 +107,7 @@ step1_rearrange_facets = function(tmo, o) {
 
 				} else {
 					split_stars_dim = ""
-					if (length(value) && is.na(value[[1]][1])) {
+					if (length(value) && is.na(value[[1]][1]) && !inherits(value, c("tmapMVShpVars", "tmapShpVars"))) {
 						# NA -> value.blank
 						value = tmapVars(getAesOption("value.blank", o, aes = aes, layer = layer))
 					}

diff --git a/R/tm_layers_rgb.R b/R/tm_layers_rgb.R
@@ -15,7 +15,7 @@ opt_tm_rgb = function(interpolate = FALSE) {
 #' @param options options passed on to the corresponding `opt_<layer_function>` function 
 #' @example ./examples/tm_rgb.R 
 #' @export
-tm_rgb = function(col = tm_mv_shape_vars(3),
+tm_rgb = function(col = tm_mv_shape_vars(n = 3),
 				  col.scale = tm_scale_rgb(),
 				  col.legend = tm_legend(),
 				  col.chart = tm_chart_none(),
@@ -26,7 +26,7 @@ tm_rgb = function(col = tm_mv_shape_vars(3),
 
 #' @rdname tm_rgb
 #' @export
-tm_rgba = function(col = tm_mv_shape_vars(4),
+tm_rgba = function(col = tm_mv_shape_vars(n = 4),
 				  col.scale = tm_scale_rgba(),
 				  col.legend = tm_legend(),
 				  col.chart = tm_chart_none(),