关于R中的功能的怀疑

Question

我在R中运行此函数，它返回一个站点的值。

sergito<- function(empresa) {
  url <- paste(sprintf("http://www.portaltransparencia.gov.br/servidores/Servidor-ListaServidores.asp?bogus=1&Pagina=1&TextoPesquisa="),empresa, sep="")
  id <- readLines(url)
  pos <- grep('IdServidor',id)
  x <- id[ pos:(pos) ]
  x1 <- substr(x,64,70)
  return(x1)
}

nome <- c('sergio%20henrique%20almeida%20da%20silva%20junior',
          'sergio%20henrique%20almeida%20da%20silva%20filho',
          'sergio%20henrique%20almeida%20da%20silva%20junior')
empresa <- cbind(as.data.frame(nome))
empresa <- empresa[,1]

当我在我的代码下面运行语法时，因为Sergio Henrique Almeida da Silva Filho不存在。如何继续运行代码？使用循环？

resultado<-data.frame(empresa=NA,id=NA)
for(i in 1:length(empresa)) {
  resposta <- sergito(empresa[i])
  resultado[i,"empresa"] <- as.character(empresa[i])
  resultado[i,"id"]< - as.character(resposta[[1]])
}
resultado