# NOT RUN {
# }
# NOT RUN {
library(ggmap)
## Beijing
p <- getBaiduMap(c(116.39565, 39.92999))
ggmap(p)
p <- getBaiduMap('beijing') # the same
ggmap(p)
## black-and-white
p <- getBaiduMap(color='bw')
ggmap(p)
## do not print messages
p <- getBaiduMap(messaging = F)
# }
Run the code above in your browser using DataLab