R/AotM_Class.R

In ABoVE-AotM/above: Functions and methods for the Animals on the Move project of the Arctic Boreal Vulnerability Experiment (ABoVE - NASA).

#######################
## Class Definitions ##
#######################
#setClassUnion(".OptionalCHAR", c("character","NA"))
#setClassUnion(".OptionalDF", c("data.frame","NULL"))
#setClassUnion(".OptionalPOSIXct", c("POSIXct","NA"))
setClassUnion(".OptionalMove", c("Move","MoveStack","data.frame"))
setClassUnion(".OptionalCHAR", c("character","missing"))
setClassUnion(".OptionalLogical", c("logical","missing"))
setClassUnion(".OptionalDF", c("data.frame", "NULL"))
#setOldClass(c('data.frame'))

setClass(Class = "trackSPDF", contains=c("SpatialPointsDataFrame"),
         representation = representation(
           VT = '.OptionalDF',
           flaggedOutliers = ".OptionalDF",
           dateDownloaded = "POSIXct",
           movebank_study = "character",
           movebank_citation = "character",
           movebank_license = "character"),
         prototype = prototype(
           VT = NULL,
           flaggedOutliers = NULL,
           dateDownloaded = as.POSIXct(NA),
           movebank_study = NA_character_,
           movebank_citation = NA_character_,
           movebank_license = NA_character_),
         validity = function(object){
           return(TRUE)
         }
)

#setClass(Class = "track", contains=c("data.frame"),
#         representation = representation(),
#         prototype = prototype(),
#         validity = function(object){
#           return(TRUE)
#         }
#)

#setMethod("[", "track", function(x, i, j, ..., drop = TRUE) {
#  S3Part(x) <- callNextMethod()
#  return(x) })