# range_created(db, "2016-03-14 14:19:05", "2016-03-14 14:32:10")
range_created <- function(data, from, to=NULL) {
if (is.null(to)) {
filter_data(data, data$created>from)
} else {
filter_data(data, data$created>from & data$created<to)
}
}
#filter_by_location(d, "Honduras")
filter_by_location <- function(data, location) {
filter_data(data, data$location == location)
}
# sort_by_favorite(d, DESC=TRUE)
sort_by_favorite <- function(data, DESC=FALSE) {
sort_data(data, "favoriteCount", DESC=DESC)
}
# filter_by_retweet(d, TRUE)
filter_by_retweet <- function(data, isRetweet=FALSE) {
filter_data(data, data$isRetweet == isRetweet)
}
# show map
show_tweets_map <-function() {
#t <- twitter::find_data(limit=100, db_collection="tweetr.tweets")
t <- twitter::get_tweets_df("playa", 20, geocode="21.13,-86.83,9mi")
twitter::drawMap(t)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.