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