# NOT RUN {
map_key <- "your_api_key"
google_map(key = map_key, data = tram_stops) %>%
add_markers() %>%
add_traffic()
## style map using 'cobalt simplified' style
style <- '[{"featureType":"all","elementType":"all","stylers":[{"invert_lightness":true},
{"saturation":10},{"lightness":30},{"gamma":0.5},{"hue":"#435158"}]},
{"featureType":"road.arterial","elementType":"all","stylers":[{"visibility":"simplified"}]},
{"featureType":"transit.station","elementType":"labels.text","stylers":[{"visibility":"off"}]}]'
google_map(key = map_key, styles = style)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab