#' @name addNewTweetToDB
#' @title addNewTweetToDB
#' @description Add a new tweet to the \code{\link{tweet_db}}. If inputs are not specified, it will ask in the console for input. Automatically creats unique identifier.
#' @param tweet_text The text of the tweet.
#' @param category A category to assign the tweet to.
#' @param media_path A file-path to a picture or something you want to share.
#' @param tweet_db Allows you to pass an in-memory database in to continue building it out.
#' @importFrom digest sha1
#' @export
#' @examples
#' addNewTweetToDB("TestTweet", category="test")
addNewTweetToDB <- function(tweet_text, category, media_path = NA, tweet_db=NULL){
this_tweet <- data.frame(tweet_text = tweet_text,
category = category,
media_path = media_path,
id = digest::sha1(paste0(tweet_text, category, media_path)))
if(!is.null(tweet_db)){
tweet_db <- rbind(tweet_db,
this_tweet)
} else{
tweet_db <- this_tweet
}
return(tweet_db)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.