facebook.R

# https://github.com/pablobarbera/Rfacebook
install.packages("devtools")
library(devtools)
install_github("pablobarbera/Rfacebook/Rfacebook")

library(Rfacebook)
# developers.facebook.com/tools/explorer/
token <- " --- here push your token ---"
me <- getUsers("me", token, private_info=TRUE)

page <- getPage("humansofnewyork", token, n = 100)

page <- getPage("humansofnewyork", token, n = 100, reactions = TRUE, api = "v2.6")

-----------------

Sys.setlocale("LC_CTYPE", "en_US.UTF-8")

pages <- c("cnn",
"FoxNews",
"ABCNews",
"RTnews",
"aljazeera")

for(page in pages) {
  print(page)
  page_df <- getPage(page, token, n = 100)
  messages <- page_df$message
  # messages <- iconv(messages, "latin1", "ASCII", sub = "")

  filename <- paste0(page, ".txt")
  write.table(messages, filename, row.names = FALSE, col.names = FALSE)
}