# NOT RUN {
# To obtain the entire dataset, run the following code:
library(dplyr)
library(readr)
mayweather_mcgregor_tweets <-
"https://raw.githubusercontent.com/fivethirtyeight/data/master/mayweather-mcgregor/tweets.csv" %>%
read_csv() %>%
mutate(
emojis = as.logical(emojis),
retweeted = as.logical(retweeted),
id = as.character(id)
)
# }
Run the code above in your browser using DataLab