R/collapse_packet_set.R

In AGread: Read Data Files from ActiGraph Monitors

collapse_packet_set <- function(set, results, ...) {

  UseMethod("collapse_packet_set", set)

}


collapse_packet_set.default <- function(set, results, ...) {

  results <- do.call(rbind, results)
  new_names <- append(names(results), "Timestamp", 0)

  results$Timestamp <- set$timestamp
  results <- results[ ,new_names]

  row.names(results) <- NULL
  structure(results, class = class(set))

}