R/IsObjectInList.R

In RossDwyer/VTrack: A Collection of Tools for the Analysis of Passive Acoustic Telemetry Data

IsObjectInList <-
function(TheList, TheObject)
{
    fObjectInList <- FALSE
    
    if (length(TheList) > 0)
        for (i in 1:length(TheList))
            if (TheList[i] == TheObject)
                fObjectInList <- TRUE
  
    fObjectInList
}