Buscando una combinación única de elementos en la programación R: función char.expand()

La función char.expand() en R Language se usa para buscar una coincidencia única de su primer argumento entre los elementos de su segundo. Si tiene éxito, devuelve este elemento; de lo contrario, realiza una acción especificada por el tercer argumento.
 

Sintaxis: char.expand(input, target, nomatch = stop(“no match”))
Parámetros:  
input: string de caracteres que se expandirá 
target: vector de caracteres con los valores que se compararán con 
nomatch: una expresión R que se evaluará en caso la expansión no fue posible 
 

Ejemplo 1: 
 

# R program to illustrate
# char.expand function
 
# Creating string vector
x <- c("sand", "and", "land")
 
# Calling char.expand() function
char.expand("a", x, warning("no expand"))
char.expand("an", x, warning("no expand"))
char.expand("and", x, warning("no expand"))

Producción : 
 

[1] "and"
[1] "and"
[1] "and"

Ejemplo 2: 
 

# R program to illustrate
# char.expand function
 
# Creating string vector
x <- c("sand", "and", "land")
 
# Calling char.expand() function
char.expand("G", x, warning("no expand"))  

Producción: 
 

[1] NA
Warning message:
In eval(nomatch) : no expand