R/points.R

In move: Visualizing and Analyzing Animal Track Data

setGeneric("points")
setMethod("points", ".MoveTrackStack", function(x, col = NA, ...) {
  if (any(is.na(col))) {
    col <- 1:length(unique(x@trackId))
  }
  if (all(length(col) == length(unique(x@trackId)))) {
    col <- col[cumsum(c(1, diff(as.numeric(x@trackId)) != 0))]
  } # needs to correspond to lines function
  if (sum(n.locs(x)) != length(col) & length(col) != 1) {
    stop("Number of colours does not match either the number of locations/ individuals or is one color")
  }
  points(coordinates(x), col = col, ...)
})

setMethod("points", ".MoveTrackSingle", function(x, ...) {
  points(coordinates(x), ...)
})