R/reclamar_twitter.R

In williamorim/reclamaR:

reclamar_twitter <- function(message, show_attempt = TRUE,
                             attempt_text = "Tentativa",
                             time_interval = 60, n_messages = 1000) {


  int <- 1:n_messages

  walk(int, twittar, message, time_interval, attempt, attempt_text)

}


twittar <- function(i, message, time, show_attempt, attempt_text) {

  if(show_attempt == TRUE) {
    message <-  paste0(attempt_text, " ", i, ": ", message)
  }

  twitteR::tweet(message)
  Sys.sleep(time*60)

}