Я использую пакет disqusR, чтобы попытаться удалить комментарии с сайта. Поскольку количество комментариев, которые я хочу обработать, превышает лимит API, я написал 2 фрагмента кода, чтобы очистить статьи начала и конца.
Код для начала работ:
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
кажется, всплывает, когда я пытаюсь запустить postslist <- posts("list", thread=arts$id)
Есть идеи, как это исправить?
Спасибо!