＆＃34;供应的元素多于要替换的元素＃34;循环

Question

我对R来说相当新，这是我的第一个问题。我搜索，搜索和搜索，似乎找不到任何有用的东西。

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

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

以下是代码：

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
}

imgPgVar是我生成的用作变量的列表：p1，p2，p3 ......它有26个值。

我认为这是所有相关信息。如果我能提供其他任何东西，请告诉我。

提前感谢您的帮助！