posm()
str(posm())
pll()
putm(5:14) # Germany
putm(zone=33) # Berlin
map <- list(tiles=list(dummy=list(projection=pll())),
bbox=list(p1=par("usr")[c(1,4)], p2=par("usr")[2:3]) )
pmap(map)
Run the code above in your browser using DataLab