revalue was removed

teunbrand · teunbrand · commit 814df05b822b · 2024-10-31T14:34:50.000+01:00
diff --git a/R/labels.R b/R/labels.R
@@ -84,8 +84,13 @@ setup_plot_labels <- function(plot, layers, data) {
     ))
   }
 
-  if (length(plot_labels$dictionary) > 0) {
-    labels <- lapply(labels, revalue, replace = plot_labels$dictionary)
+  dict <- plot_labels$dictionary
+  if (length(dict) > 0) {
+    labels <- lapply(labels, function(x) {
+      dict <- dict[names(dict) %in% x]
+      x[match(names(dict), x)] <- dict
+      x
+    })
   }
 
   defaults(plot_labels, labels)

Original file line number	Diff line number	Diff line change
`@@ -84,8 +84,13 @@ setup_plot_labels <- function(plot, layers, data) {`
`84`	`84`	`))`
`85`	`85`	`}`
`86`	`86`
`87`		`- if (length(plot_labels$dictionary) > 0) {`
`88`		`- labels <- lapply(labels, revalue, replace = plot_labels$dictionary)`
	`87`	`+ dict <- plot_labels$dictionary`
	`88`	`+ if (length(dict) > 0) {`
	`89`	`+ labels <- lapply(labels, function(x) {`
	`90`	`+ dict <- dict[names(dict) %in% x]`
	`91`	`+ x[match(names(dict), x)] <- dict`
	`92`	`+ x`
	`93`	`+ })`
`89`	`94`	`}`
`90`	`95`
`91`	`96`	`defaults(plot_labels, labels)`