Arrêtez Rfacebook pour la sortie de boucle tout en exécutant le code

Question

Le point dans le code est de rassembler des messages d'une page Facebook et de les stocker dans my_page mais je ne connais pas le code comme c'est le cas pour un projet Uni. Le problème que j'ai, c'est qu'il doit être utilisé dans un format .rpres créé en utilisant Rstudio et en tant que tel, je ne veux pas la sortie, mais encore besoin d'exécuter le code.

Ceci est la sortie que je ne veux pas être affiché:

```{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

Votre problème est simplement que Rfacebook::getPage imprime sur la console lors de son exécution. C'est parce qu'il appelle cat(), ce qui est la même chose que print(). Heureusement, le paquet fournit un commutateur pour éteindre ça - tout ce que vous devez faire est d'ajouter l'argument verbose = FALSE à votre appel et il arrêtera l'impression:

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

Il est pratique assez mauvais pour un forfait pour appeler cat ou print - ils doivent utiliser message et warning place - donc j'ai soulevé un problème avec le responsable du paquet pour demander que cela soit changé, que vous pouvez regarder ici si vous aimez:

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