Solve the puzzle: https://twitter.com/JeffisTallguy/status/1293909763953057795?s=20

yesterday-tweets.R

library(tidyverse)
library(rtweet)
library(glue)

tml <- get_timelines("JeffisTallguy", n = 200)

yesterday <- tml %>% 
  filter(is.na(reply_to_screen_name)) %>%
  slice(
    which(str_detect(text, "Yesterday by the Beatles is a pretty solid song")):
      max(which(str_detect(text, "Yesterday is short for Ye sternum day")))
  ) %>%
  mutate(first_word = word(text, 1))

glue_collapse(yesterday$first_word, sep = " ")

# Yesterday All My Troubles Seemed So Far Away Now It Looks As Though They’re Here To Stay Oh I BELIEVE In Yesterday Suddenly I’m Not Half The Man I Used To BE There’s A Shadow Hanging Over Me, Oh Yesterday Came Suddenly Why She Had To Go I Don’t Know She Wouldn’t Say I Said Something Wrong! Now I Long For Yesterday Yesterday Love Was “Such An Easy Game To Play Now I Need A “Place To HIDE “Away Oh I BELIEVE In Yesterday Why? “She Had To Go I Don’t Know She Wouldn’t Say I “Said Something Wrong Now I Long For Yesterday Yesterday Love Was “Such An Easy Game To Play Now I Need A Place To Hide Away Oh I Believe In Yesterday