R/tweetml.R

In Myfanwy/MattLiebeR: Send "Reply All"-flavored Tweets

#' tweetml
#' @description a function that calls twitteR's tweet() function to send the person of your choice a feel-good message from the 'Matt Lieber is' quotes of the credits from Gimlet Media's Reply All podcast.
#' @param username The username of the person at which you'd like to tweet.  Should be in quotes and include the '@' symbol
#' @examples
#' tweetml("@Voovarb")
#' @export
tweetml <- function(username) {
 # username <- "@Voovarb"
  s <- paste0(username, " ", dplyr::sample_n(ml, 1), collapse = "")
#  s
  twitteR::tweet(s)
}