# NOT RUN {
bearer_token <- "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
tweets <- get_radius_tweets("happy", radius = c(-0.131969125179604,51.50847878040284, 25),
start_tweets = "2021-01-01T00:00:00Z",
end_tweets = "2021-01-01T10:00:00Z",
bearer_token = bearer_token, data_path = "data/")
# }
Run the code above in your browser using DataLab