#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.