if (auth_has_default()) {
## stream tweets sent from the US
rt <- search_tweets(geocode = lookup_coords("usa"))
## 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