Hi,
I would like to use case_match to replace a series of strings with another series of strings in a pairwise manner. For example,
x <- c("A", "B", "B")
x1 <- c("A", "B")
x2 <- c( "Apple", "Banana")
## would work like
case_match(x, x1,x2)
## Instead of
case_match(x, 'A'~'Apple',
'B' ~ 'Banana')
FJCC
2
Does this do what you want?
x <- c("A", "B", "B")
x1 <- c("A", "B")
x2 <- c( "Apple", "Banana")
CaseMatch <- function(Vec, Nms, Val) {
names(Val) <- Nms
return(Val[Vec])
}
CaseMatch(x, x1, x2)
#> A B B
#> "Apple" "Banana" "Banana"
Created on 2023-05-30 with reprex v2.0.2
While not what I was thinking, this does it and is pretty clever. Thanks
system
Closed
4
This topic was automatically closed 42 days after the last reply. New replies are no longer allowed.
If you have a query related to it or one of the replies, start a new topic and refer back with a link.