rgb with na values fixed (#910)

r-tmap · Aug 5, 2024 · f916c7e · f916c7e
1 parent 6c6e0bb
commit f916c7e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tmapScaleRGB.R b/R/tmapScaleRGB.R
@@ -24,7 +24,7 @@ tmapScaleRGB_RGBA = function(xlist, scale, legend, chart, o, aes, layer, layer_a
 
 	if (any(isna)) {
 		values = rep(scale$value.na, n) 
-		values[!isna] = do.call(grDevices::rgb, c(xlist, list(maxColorValue = scale$maxValue)))
+		values[!isna] = do.call(grDevices::rgb, c(lapply(xlist, function(xl) xl[!isna]), list(maxColorValue = scale$maxValue)))
 	} else {
 		values = do.call(grDevices::rgb, c(xlist, list(maxColorValue = scale$maxValue)))
 	}