R/iamdone.R

#' I am Done!- Bot
#'
#' This function just tweets Lorem Ipsum at me.
#' @keywords cats
#' @export
#' @examples
#' iamdone()


iamdone <- function(){
  if(!require("twitteR",character.only = TRUE)) install.packages("twitteR")
  library(twitteR)
  setup_twitter_oauth("KTbebJlQZWWqKg6OqEd1zTFVT", "bJJkaInU8knsOOJ1aLD1CptgBhxvuD4FtqUR7s2ohNGaE4Tg1L",
                      "959834106682109953-d1WLopeTTcbwjxthPfMFEU1U78Qr7MO",
                      "G9DIFp4Ox7Sp20KAGB0QAGkTTxgfggTKWGN2Zim1KTZcU")
  paste("1")
  set.seed(gsub(":","",format(Sys.time(), "%X")))
  lorem <- c("lorem",	"ipsum",	"dolor",	"sit",	"amet",	"consetetur",	"sadipscing",	"elitr",	"sed",	"diam",	"nonumy",	"eirmod",	"tempor",	"invidunt",	"ut",	"labore",	"et",	"dolore",	"magna",	"aliquyam",	"erat",	"sed",	"diam",	"voluptua",	"at",	"vero",	"eos",	"et",	"accusam",	"et",	"justo",	"duo",	"dolores",	"et",	"ea",	"rebum",	"Stet",	"clita",	"kasd",	"gubergren",	"no",	"sea",	"takimata",	"sanctus",	"est",	"Lorem",	"ipsum",	"dolor",	"sit",	"amet",	"lorem",	"ipsum",	"dolor",	"sit",	"amet",	"consetetur",	"sadipscing",	"elitr",	"sed",	"diam",	"nonumy",	"eirmod",	"tempor",	"invidunt",	"ut",	"labore",	"et",	"dolore",	"magna",	"aliquyam",	"erat",	"sed",	"diam",	"voluptua",	"At",	"vero",	"eos",	"et",	"accusam",	"et",	"justo",	"duo",	"dolores",	"et",	"ea",	"rebum",	"Stet",	"clita",	"kasd",	"gubergren",	"no",	"sea",	"takimata",	"sanctus",	"est",	"Lorem",	"ipsum",	"dolor",	"sit",	"amet")
  tweet(paste(lorem[sample(1:100, 1)], lorem[sample(1:100, 1)], lorem[sample(1:100, 1)], lorem[sample(1:100, 1)] ,lorem[sample(1:100, 1)], "@MichaelImre"))
  rm(lorem)
}
imrem/iamdone documentation built on May 28, 2019, 7:29 a.m.