# NOT RUN {
# in what follows, enter your own api key
api_key <- '<your api key here>'
map <- get_cloudmademap(api_key = api_key)
ggmap(map)
map <- get_cloudmademap(maptype = 997, api_key = api_key)
ggmap(map)
# }
Run the code above in your browser using DataLab