search

Trackage / trip

trip package development
http://trackage.github.io/trip/
12 stars 2 forks source link

Format zoo #35

Open mdsumner opened 5 years ago

mdsumner commented 5 years ago

Kml, gml, pbf, all the packages, imos, movebank, etc, ncei:

mdsumner commented 5 years ago

beginnings of trajectories support

trip.Track <- function(x, id = "1") {
  utc <- (attr(x@time, "index") + ISOdatetime(1970, 1, 1, 0, 0, 0, tz = "UTC"))[x@time]
  d <- cbind(data.frame(time = utc, id = id), x@data)
  trip(sp::SpatialPointsDataFrame(x@sp, d), c("time", "id"))
}

trip.Tracks <- function(x) {
  ids <- rownames(x@tracksData)
  trips <- lapply(seq_along(ids), function(i) trip.Track(x@tracks[[i]], i))
  trip(do.call(rbind, trips), getTORnames(trips[[1]]))
}
mdsumner commented 4 years ago

see #29