data("gambiaUTM")
gambiaUTM = unwrap(gambiaUTM)
plot(gambiaUTM, main="gambia data")
if(require('mapmisc', quietly=TRUE)) {
gambiaTiles = openmap(gambiaUTM, zoom=6, buffer=50*1000)
oldpar=map.new(gambiaTiles)
plot(gambiaTiles, add=TRUE)
plot(gambiaUTM, add=TRUE)
scaleBar(gambiaUTM, 'topright')
par(oldpar)
}
Run the code above in your browser using DataLab