pass vectors into a function using case_match

[mjpdenver]

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]

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}

[mjpdenver]

@FJCC

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)

While not what I was thinking, this does it and is pretty clever. Thanks