使用disqusR软件包：is.url（url）中的错误：length（url）== 1不是TRUE

Question

我正在使用disqusR软件包尝试从网站上删除评论。由于我要抓取的注释数量超过了API限制，因此我编写了2个代码块来抓取开头和结尾的文章。

开始工作的代码：

df.quantity = df.quantity  * -1

但是结尾文章的代码不起作用：

arts<-c(); postslist<-c(); posts<-c(); collectposts<-c()
for (i in 1:131){
art <- MR_fashion_urls[i]
 arts <- threads("list" , forum="themanrepeller", thread=paste0("link:", art))
 postslist <- posts("list", thread=arts$id)
 collectposts<-postslist$raw_message
 collectposts<-paste(collectposts,collapse="")
 posts<-c(posts,collectposts)}
disqus_posts<-posts

错误arts<-c(); postslist<-c(); posts<-c(); collectposts<-c() for (i in 1:length(MR_fashion_urls_131)){ art <- MR_fashion_urls_131[i] arts <- threads("list" , forum="themanrepeller", thread=paste0("link:", art)) postslist <- posts("list", thread=arts$id) collectposts<-postslist$raw_message collectposts<-paste(collectposts,collapse="") posts<-c(posts,collectposts)} 当我尝试运行Error in is.url(url) : length(url) == 1 is not TRUE

时似乎出现了

关于如何解决此问题的任何想法？

谢谢！