R/pf_dup_dates.R

In ianjonsen/foieGras: Fit Continuous-Time State-Space and Latent Variable Models for Quality Control of Argos Satellite (and Other) Telemetry Data and for Estimating Changes in Animal Movement

##' @title Find observations with duplicate dates
##'
##' @param x input data from `format_data()`
##' @param min.dt minimum allowable time difference in s between observations; 
##' `dt < min.dt` will be ignored by the SSM
##' @keywords internal
##' @md

pf_dup_dates <- function(x, min.dt) {

  x$keep <- difftime(x$date, c(as.POSIXct(NA), x$date[-nrow(x)]), 
                     units = "secs") > min.dt
  
  x$keep <- ifelse(is.na(x$keep), TRUE, x$keep)
  
  return(x)
}