library(maptools) # for readShapeSpatial and dataset
xx <- readShapeLines(system.file("shapes/fylk-val.shp", package="maptools")[1],
proj4string=CRS("+proj=utm +zone=33 +datum=WGS84"))
windows(record=TRUE)
plot(xx)
shapeZoom(xx)
# With pgUp and Dn, you can zoom out again
plot(xx)
shapeZoom(xx, steps=8)
Run the code above in your browser using DataLab