R/spatialLines.R

In move: Visualizing and Analyzing Animal Track Data

setAs("Move", "SpatialLinesDataFrame", function(from) {
  SpatialLinesDataFrame(SpatialLines(list(Lines(
    list(Line(from)),rownames(from@idData)
  )),proj4string = CRS(proj4string(from))), from@idData)
})
setAs("MoveStack", "SpatialLinesDataFrame", function(from) {
  SpatialLinesDataFrame(as(from, "SpatialLines"), from@idData)
})
setAs("MoveStack", "SpatialLines", function(from) {
  SpatialLines(
    mapply('Lines',
           lapply(lapply(
             lapply(split(from),as,"SpatialPoints")
             #      split(as(from,'SpatialPoints'), from@trackId)
             ,Line
           ), list)
           , rownames(from@idData)),proj4string = CRS(proj4string(from))
  )
})