## 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 trends data
# ww_trends
# ## End(Not run)
Run the code above in your browser using DataLab