R/cu_bout_summary.R

In dsjohnson/crawlUtils: Enhance And Integrate the {crawl} Package For Spatial Analysis Of Telemetry Output

#' @title Create a Table of Start and End Times for each Bout in a telemetry data set
#' @description Summarizes a telemetry dataframe with a bout column into
#' a data frame with start and end times for each bout. For use with
#' \code{\link[crawlUtils:cu_join_interval_tbl]{cu_join_interval_tbl}}.
#' @param x A telemetry data frame containing a \code{bout_id} column.
#' @param ... Ignored arguments
#' @importFrom sf st_drop_geometry
#' @importFrom dplyr group_by summarize
#' @author Devin S. Johnson
#' @export
cu_bout_summary <- function(x,...){
  datetime <- bout_id <- NULL
  x <- x %>% group_by(bout_id) %>% st_drop_geometry() %>%
    summarize(start=min(datetime), end=max(datetime))
}