https://github.com/cran/spacetime
Tip revision: a1dd8d78dccd4b48b084ac0d2256c6da81a0c6f3 authored by Edzer Pebesma on 05 December 2023, 21:20:03 UTC
version 1.3-1
version 1.3-1
Tip revision: a1dd8d7
endtime.R
if (!isGeneric("endTime"))
setGeneric("endTime", function(x, ...)
standardGeneric("endTime"))
if (!isGeneric("endTime<-"))
setGeneric("endTime<-", function(x, value)
standardGeneric("endTime<-"))
setMethod("endTime", "ST", function(x, ...) x@endTime)
setReplaceMethod("endTime", c("ST", "POSIXct"), # including xts
function(x, value) {
stopifnot(length(value) == dim(x)[2])
stopifnot(any(value < index(x@time)))
x@endTime = value
x
}
)
setReplaceMethod("endTime", c("ST", "xts"), # including xts
function(x, value) {
endTime(x) = index(x)
x
}
)