&引用；供应的元件比需要更换的元件多；for循环中的R错误

我对R相当陌生，这是我的第一个问题。我搜索了又搜索，似乎找不到任何有用的东西

我正在从一个网站上抓取信息。我已经让它在一个页面上工作，但现在我正试图自动化这个过程，这样它就可以通过所有26个页面。出于某种原因，当我尝试执行以下代码时，会收到以下错误消息：

Error in imgPgVar[[d]] <- readHTMLTable((mybrowser$getPageSource()[[1]]),  : 
  more elements supplied than there are to replace

---

imgPgVar[[d]]中的错误尝试用
imgPgVar替换第二行尝试用
imgPgVar替换第二行
numbers <- c(1:26)
imgPgVar <- paste0("p", seq_along(numbers))
for (d in 1:length(numbers)){
  mybrowser$navigate(paste0("https://secure.istockphoto.com/gb/file_downloads.php?id=20386766&PageSetting=&order=CreationDate&page=", d))
  imgPgVar[[d]] <-  readHTMLTable((mybrowser$getPageSource()[[1]]), header = TRUE)
  imgPgVar[[d]] <-  (imgPgVar[[d]])[[2]]
  d <- d+1
}