Detailed description |
Hi,
I just noticed that there is no shift method for SpatialPoints although it is documented to exist.
This should fix it (R/shift.R):
setMethod('shift', signature(object='SpatialPoints'),
function(object, x=0, y=0, ...) {
a <- as.data.frame(object)
a$x <- a$x + x
a$y <- a$y + y
coordinates(a) <- ~x+y
return(a)
}
)
Cheers
Benjamin |
|