停止Rfacebook循環輸出，同時仍然運行代碼

Question

代碼中的要點是從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") 
} 
``` 

Answer 1

你的問題很簡單，就是Rfacebook::getPage打印到控制檯在運行時。那是因爲它叫cat()，這與print()是一樣的。幸運的是包提供了一個開關把它們關掉 - 所有你需要做的是verbose = FALSE參數添加到您的呼叫，它會停止打印：

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

這是實踐包調用cat或print非常糟糕 - 他們應該利用message和warning代替 - 所以我提出與包維護者問這個問題要改，你可以看這裏，如果你喜歡：

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