Использование функции Grep для цикла

Question

У меня проблема с моим кодом. Это работает для других значений, когда значения ID все в матрице тегов, однако, если есть значение идентификатора, что это не в матрице тегов я получаю ошибку:

Error in IDintag[i] <- grep(ID[i], tag) : replacement has length zero 

Заранее спасибо

tag=NULL 
ID=NULL 

url <- readLines("http://www.afip.gob.ar/contacto") 
tag <- as.matrix(grep("</strong>",url)) 
ID <- grep("correo",url) 

for(i in 1:length(ID)) 
    {IDintag[i] <- grep(ID[i],tag) 
    } 

Answer 1

Нет необходимости в цикле, вы можете использовать %in% с which()

url <- readLines("http://www.afip.gob.ar/contacto") 
tag <- as.matrix(grep("</strong>",url)) 
ID <- grep("correo", url) 

matrix(which(tag %in% ID)) 
#  [,1] 
# [1,] 3 
# [2,] 4 
# [3,] 5