使用Rfacebook删除评论回复

我正在使用Rfacebook软件包来获取我的研究问题感兴趣的公共页面列表。认证工作正常，我可以得到所有公开帖子的数据框，对这些帖子的反应和评论

然而，当我试图从公开帖子中提取对评论的回复时，我遇到了一个问题。这是我正在使用的代码：

BSBKB <-getPage("bersenbrueckerkreisblatt", token = my_OAuth, feed = TRUE, reactions = TRUE,verbose = TRUE, n = 1000)
#Getting comments for Post No.4
Comments <- getPost(BSBKB$id[4],token = my_OAuth, reactions = TRUE, n =180,likes=TRUE)
#Getting replies to comment No.4 under Post No.4
replies <- getCommentReplies(Comments$comments$id[4], token = my_OAuth, n = 500, replies = FALSE, likes= TRUE)

奇怪的是，当我试图从

？getCommentReplies（）

页面运行示例代码时，同样的错误也发生了：

## Not run: 
## See examples for fbOAuth to know how token was created.
## Getting information about Facebook's Facebook Page
   load("fb_oauth")
   fb_page <- getPage(page="facebook", token=my_OAuth)
## Getting information and likes/comments about most recent post
   post <- getPost(post=fb_page$id[1], n=2000, token=my_OAuth)
## Downloading list of replies to first comment
   replies <- getCommentReplies(comment_id=post$comments$id[1], token=my_OAuth) 
## End(Not run)

---

这是程序包中的系统性错误、API最近的更改还是我在某个地方犯了错误？任何关于如何解决这一问题以及如何提取评论回复（以及理想情况下对它们的反应）的建议都将非常好

函数getCommentReplies的源代码发布在Github上：

在您自己的环境中重新加载此代码，但在执行此操作之前，请注释以下行：

out[["reply"]] <- replyDataToDF(content)

---

out[[“回复”]]你好，艾伯特，非常感谢你的建议！你说的取消注释到底是什么意思？当我查看源代码（第98行）时，就我所能看到的而言，没有可以删除以取消注释该行的#。如果我在控制台中查看函数的源代码，它也不是注释。您好，您是对的，很抱歉我在解释中犯了错误-将这行注释掉（放在行的前面）-脚本不应该运行它。顺便说一下-请记住，在文件的顶部有一些代码行只是为了让它运行。你可能需要做一些调整
Error in data.frame(from_id = json$from$id, from_name = json$from$name,  : 
  arguments imply differing number of rows: 0, 1

out[["reply"]] <- replyDataToDF(content)