Skip to content

Instantly share code, notes, and snippets.

@vanatteveldt
Created November 22, 2019 14:28
Show Gist options
  • Save vanatteveldt/4fbef1e84db2125f556c13b36ca31bd6 to your computer and use it in GitHub Desktop.
Save vanatteveldt/4fbef1e84db2125f556c13b36ca31bd6 to your computer and use it in GitHub Desktop.
x = read_csv("https://raw.githubusercontent.com/BuzzFeedNews/2018-01-trump-state-of-the-union/master/data/sou.csv")
x = x %>% select(president, date, text)
t = readtext("/tmp/trump.txt") %>% mutate(doc_id=NULL, president = "Donald J. Trump", date=as.Date("2019-01-01"))
c = bind_rows(x, t)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment