Grepl() - correspondance de chaîne partielle après un symbole

Question

I ont 2 vecteurs de caractères:

Long <- c("d4@NHL1", "d7@NHL2", "d4@NHL3", "d7@NHL4", "d7@NHL5", "d9@NHL6") 
Short <- c("NHL1", "NHL3", "NHL6", "NHL5") 

Je dois vérifier que les chaînes de vecteur longues chaînes correspondent en partie à partir du vecteur court, à partir de @ symbole. J'ai besoin d'un vecteur logique.

Je pense que je dois utiliser grepl() fonction, quelque chose comme ceci:

sapply(Long, function(x) grepl(x, paste(Short, collapse = ""))) 

Je ne sais pas quoi utiliser comme modèle en fonction grepl() ou s'il n'y a aucun argument pour commencer correspondant après un symbole .

Answer 1

Emprunter l'approche de another stackoverflow response:

Long <- c("d4@NHL1", "d7@NHL2", "d4@NHL3","d7@NHL4", "d7@NHL5", "d9@NHL6") 
Short <- c("NHL1", "NHL3", "NHL6", "NHL5") 
matches <- grep(paste0("*@",Short,collapse="|"), 
       Long, value=TRUE) 

Les * correspond à tout nombre de caractères avant le @