library(twitteR)
library(tidytext)
library(dplyr)
library(tidyr)
library(stringr)
library(RCurl)
#' Retrieve location data for tweets about Donald Trump
#'
#' @return Data of latitude and longitudes of tweet data
#' @export
lat_lon <- function() {
d <- tweets()
tweet_loc = data.frame(lon = d$longitude, lat = d$latitude)
tweet_loc
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.