# NOT RUN {
# Retrieve available trends
trends <- available_trends()
trends
# Store WOEID for Worldwide trends
worldwide <- subset(trends, name == "Worldwide")[["woeid"]]
# Retrieve worldwide trends datadata
ww_trends <- get_trends(woeid = Worldwide)
# Preview Worldwide trends data
ww_trends
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab