# NOT RUN {
# }
# NOT RUN {
rgbMap = openmap(c(0,10), zoom=3, path='stamen-toner')
names(rgbMap)
plotRGB(rgbMap)
transMap = tonerToTrans(rgbMap, col='blue')
names(transMap)
par(bg='red')
plot(transMap)
rgbMap[['stamen.tonerTrans']] = 255-rgbMap[['stamen.tonerRed']]
rgbtMap = rgbtToIndex(rgbMap)
plot(rgbtMap)
# }
Run the code above in your browser using DataLab