R/create_crop.R

In KiranLDA/PAMLr: Suite Of Functions For Manipulating Pressure, Activity, Magnetism, Temperature And Light Data In R

#' Crop all sensor data to the same timeframe
#'
#' @description Get rid of excess data. e.g. when a logger is kept in a rucksack or a lab before being downloaded.
#'
#' @param dta path where files are stored
#' @param start posicxt object for date that PAM data should start
#' @param end posicxt object for date that PAM data should end
#'
#' @return shortened PAM data
#'
#' @examples
#' data(hoopoe)
#' PAM_data=hoopoe
#' str(PAM_data)
#'
#' start = as.POSIXct("2016-07-01","%Y-%m-%d", tz="UTC")
#' end = as.POSIXct("2017-06-01","%Y-%m-%d", tz="UTC")
#'
#' newPAM = create_crop(PAM_data,start,end)
#'
#' @export
create_crop <- function(dta, start, end){
  test <- lapply(1:length(dta), function(x) {if(x>=2) {
    as.data.frame(dta[[x]])[(as.data.frame(dta[[x]])[,1] >= start & as.data.frame(dta[[x]])[,1] <= end),]
  }else{ as.character(dta[[x]])}
  })
  names(test) = names(dta)
  return(test)
}