# NOT RUN {
## 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 DataCamp Workspace