https://github.com/cran/spacetime
Tip revision: dadc1ac88cff04c9634fc0885cc087f229c59fca authored by Edzer Pebesma on 06 September 2013, 00:00:00 UTC
version 1.0-9
version 1.0-9
Tip revision: dadc1ac
bind.R
cbind.ST = function (..., deparse.level = 1) {
args = list(...)
# cbind data slots:
df = do.call(cbind, lapply(args, function(x) x@data))
ret = args[[1]]
ret@data = df
ret
}
rbind.STIDF = function(..., deparse.level = 1) {
args = list(...)
df = do.call(rbind, lapply(args, function(x) x@data))
time = do.call(c, lapply(args, function(x) index(x@time)))
sp = do.call(rbind, lapply(args, function(x) x@sp))
STIDF(sp, time, df)
}
rbind.STTDF = function(...) {
dots = list(...)
names(dots) <- NULL # bugfix Clement Calenge 100417
df = do.call("rbind", lapply(dots, function(x) as(x, "STIDF")))
as(df, "STTDF")
}
rbind.STFDF = function(..., deparse.level = 1) {
args = list(...)
n = names(args[[1]]@data)
# as(do.call(rbind, lapply(args, function(x) as(x, "STIDF"))), "STFDF")
sp = do.call(rbind, lapply(args, function(x) x@sp))
args = lapply(args, function(x) as(x, "xts"))
args = do.call(cbind, args)
ret = stConstruct(args, sp)
names(ret@data) = n
ret
}
# pretty "lazy" implementation follow:
rbind.STSDF = function(..., deparse.level = 1) {
args = list(...)
as(do.call(rbind, lapply(args, function(x) as(x, "STIDF"))), "STSDF")
}