popular_tweet.R

### how to use R to find your most popular tweet of 2019
# code by @nnstats

library(rtweet)
library(tidyverse)
library(lubridate)

show_most_popular_tweet <- function(user, year){
  
  y <- year
  
  get_timeline(user, n=3200) %>%
  mutate(year = year(created_at))  %>%
    filter(year == y)  %>%
    arrange(-favorite_count) %>%
    slice(1) %>%
    pull(status_id) %>%
    paste0('https://twitter.com/', user, '/status/', .)  %>%
    browseURL()
}


show_most_popular_tweet(user = 'UrbanDemog', year = 2018)

2018: https://twitter.com/UrbanDemog/status/977880572214300672
2019: https://twitter.com/UrbanDemog/status/1193132906979430400