## load the data
data(lynxjura)
## short printing method
oldopt <- adeoptions(shortprint=TRUE)
lynxjura$map
## 'sp' print method for Spatial objects
adeoptions(shortprint=FALSE)
lynxjura$map
## original options
adeoptions(oldopt)
lynxjura$map
Run the code above in your browser using DataLab