R/deletes_old_datetime.R

In bridachristian/DataQualityCheckEuracAlpEnv:

#' This function delete duplcated data in a data.frame
#'
#' @param DATA data.frame
#' @param DATETIME_HEADER header corresponding to datetime

#'
#' @return A list containing a data.frame without dates already analyzed rows and a dataframe with dates already analyzed
#' @export
#' @examples
#' deletes_old_datetime(DATA = mydata, DATETIME_HEADER = "TIMESTAMP")
#' deletes_old_datetime(DATA = your data.frame, DATETIME_HEADER = "Your datetime header")
#'


deletes_old_datetime = function(DATA, DATETIME_HEADER = "TIMESTAMP"){
  start_date = DATA[1, which(colnames(DATA) == DATETIME_HEADER)]

  w = which(DATA[,which(colnames(DATA) == DATETIME_HEADER)]< start_date)
  if(length(w) != 0 ){
    DATA <- DATA[-w,]
    df_already_analyzed  = DATA[which(DATA[,which(colnames(DATA) == DATETIME_HEADER)]< start_date),]

  } else{
    data = DATA
    df_already_analyzed =  as.data.frame(t(rep(NA,times = ncol(DATA) )))
    colnames(df_already_analyzed) = colnames(DATA)
  }

  out = list(data,df_already_analyzed)


  return(out)

}