求助：代码如下，第一层for循环内的代码运行完全没有问题，但是for循环加上之后就提示错误“Error in x[j]:(x[j] + 19) : NA/NaN argument”，各位大侠，该如何解决？

for (i in 2:length(nr2)){
  tmp <- nr2[i]
  tmp1 <- unlist(tmp)
  x <- grep('<div class=\"block\"',tmp1)
  film3 <- list()
  for (j in 1:length(x)) {
    film3[j] <- list(tmp1[x[j]:(x[j]+19)])
  }
  film4 <- unlist(film3)
}