在仍然 运行 代码的情况下停止 Rfacebook 进行循环输出

Stop Rfacebook for loop outputting while still running code

代码中的要点是从 Facebook 页面收集帖子并将它们存储在 my_page 中,但是我不熟悉该代码,因为它适用于 Uni 项目。我遇到的问题是它必须以使用 Rstudio 创建的 .rpres 格式使用,因此我不想要输出但仍然需要 运行 代码。

这是我不想显示的输出:

```{r, echo = FALSE}

#install.packages("Rfacebook") 

include(Rfacebook)

token <- "Facebook dev auth token goes here"

page_name <- "BuzzFeed"

my_page <- getPage(page_name, token, n = 2,reactions = TRUE,api = "v2.10") 

number_required <- 50

dates <- seq(as.Date("2017/07/14"), Sys.Date(), by = "day")

#
n <- length(dates) - 1 

df_daily <- list() 

for (i in 1:n){

cat(as.character(dates[i]), " ")

try(df_daily[[i]] <- getPage(page_name, token, 
                             n = number_required,reactions = TRUE,api = "v2.10", 
                             since = dates[i], 
                             until = dates[i+1]))

cat("\n")
}
```

您的问题只是 Rfacebook::getPage 在运行时打印到控制台。那是因为它调用了 cat(),这与 print() 是一样的。幸运的是,该软件包提供了一个开关来关闭它——您需要做的就是将 verbose = FALSE 参数添加到您的调用中,它将停止打印:

getPage(...)
getPage(..., verbose = FALSE)

包调用 catprint 是非常糟糕的做法 - 他们应该改用 messagewarning - 所以我提出了一个问题包维护者要求更改此内容,如果您愿意,可以在这里观看:

https://github.com/pablobarbera/Rfacebook/issues/145