# NOT RUN {
library(oce)
data(coastlineWorld)
## Eastern Canada
cl <- subset(coastlineWorld, -80<lon & lon<-50 & 30<lat & lat<60)
## The plot demonstrates that the trimming is as requested.
plot(cl, clon=-65, clat=45, span=6000)
rect(-80, 30, -50, 60, bg="transparent", border="red")
# }
Run the code above in your browser using DataLab