在仍然 运行 代码的情况下停止 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)
包调用 cat
或 print
是非常糟糕的做法 - 他们应该改用 message
和 warning
- 所以我提出了一个问题包维护者要求更改此内容,如果您愿意,可以在这里观看:
代码中的要点是从 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)
包调用 cat
或 print
是非常糟糕的做法 - 他们应该改用 message
和 warning
- 所以我提出了一个问题包维护者要求更改此内容,如果您愿意,可以在这里观看: