Eliminar cadenas encontradas en el vector 1, del vector 2
Tengo estos dos vectores:
sample1 <- c(".aaa", ".aarp", ".abb", ".abbott", ".abogado")
sample2 <- c("try1.aarp", "www.tryagain.aaa", "255.255.255.255", "onemoretry.abb.abogado")
Estoy tratando de eliminar las cadenas de sample1 que se encuentran en sample2. Lo más cerca que tengo es iterando usandosapply
, que me dio esto:
sapply(sample1, function(i)gsub(i, "", sample2))
.aaa .aarp .abb .abbott .abogado
[1,] "try1.aarp" "try1" "try1.aarp" "try1.aarp" "try1.aarp"
[2,] "www.tryagain" "www.tryagain.aaa" "www.tryagain.aaa" "www.tryagain.aaa" "www.tryagain.aaa"
[3,] "255.255.255.255" "255.255.255.255" "255.255.255.255" "255.255.255.255" "255.255.255.255"
[4,] "onemoretry.abb.abogado" "onemoretry.abb.abogado" "onemoretry.abogado" "onemoretry.abb.abogado" "onemoretry.abb"
Por supuesto, la salida esperada debe ser
[1] "www.tryagain" "try1" "onemoretry" "255.255.255.255"
Gracias por tu tiempo.