R/idData.R

In move: Visualizing and Analyzing Animal Track Data

setGeneric("idData", function(x, i, j, ...) {
  standardGeneric("idData")
})
setMethod("idData", signature = c(".MoveTrack"), function(x, i, j, ...) {
  return(x@idData[i, j, ...])
})

setGeneric("idData<-", function(x, i, j, value) {
  standardGeneric("idData<-")
})
setMethod("idData<-", signature = c(".MoveTrack"), function(x, i, j, value) {
  x@idData[i, j] <- value
  validObject(x)
  return(x)
})
setMethod("idData<-", signature = c(x = ".MoveTrack", i = "missing", j = "missing", value = "data.frame"), function(x, i, j, value) {
  slot(x, "idData") <- value
  return(x)
})