if (auth_has_default()) {
## stream tweets sent from the US
rt <- stream_tweets(lookup_coords("usa"), timeout = 10)
## use lat_lng to recover full information geolocation data
rtl_loc <- lat_lng(rt)
rtl_loc
}
Run the code above in your browser using DataLab