# NOT RUN {
# }
# NOT RUN {
## 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))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab