R/citations.R

In move: Visualizing and Analyzing Animal Track Data

setGeneric("citations", function(obj) standardGeneric("citations"))
setMethod("citations", ".MoveGeneral", function(obj) {
  return(obj@citation)
})

setGeneric("citations<-", function(obj, value) standardGeneric("citations<-"))
setReplaceMethod("citations", ".MoveGeneral", function(obj, value) {
  if (length(value) != 1) {
    value <- as.character(value[1])
    warning("There were more than one citation entered. Only using first element")
  }
  slot(obj, "citation", check = T) <- value
  obj
})