R/loggerCleanTimegaps.R

In Nature40/UM2Radiotracking: Toolkit for handling radiotracking data

#' Remove logger timegaps
#'
#' @description Remove data for every receiver if one receiver fails
#'
#' @param logger_data logger data.frame from read_logger_folder
#' @param time_gaps data.frame with the time gaps from loggerFailure
#'
#' @return cleaned logger_data
#'
#' @author Marvin Ludwig, Nico Friess, Jannis Gottwald
#'
#' @export
#'
#'


loggerCleanTimegaps <- function(logger_data, time_gaps){
  for(i in seq(nrow(time_gaps))){

    f <- !(logger_data$timestamp >= time_gaps$start[i] & logger_data$timestamp <= time_gaps$end[i] & logger_data$Name == time_gaps$station[i])
    logger_data <- logger_data[f,]
  }
  return(logger_data)
}