R/read_gt3x_bin_dev_packets_map.R

In AGread: Read Data Files from ActiGraph Monitors

#' @rdname dev_bin_packets
#' @param type character. The packet type
#' @keywords internal
get_default_packet <- function(type) {

  warning(
    "No method exists yet for parsing ",
    type, " packets -- returning NULL."
  )

  return(NULL)

}

#' @rdname dev_bin_packets
#' @keywords internal
dev_bin1_map_packets <- function(
  type, packets, tz, info, verbose
) {
  switch(
    type,
    "BATTERY" = get_battery(packets, tz, verbose),
    "CAPSENSE" = get_capsense(packets, tz, verbose),
    "EPOCH" = get_default_packet(type),
    "EPOCH2" = get_default_packet(type),
    "EPOCH3" = get_default_packet(type),
    "EPOCH4" = get_default_packet(type),
    "HEART_RATE_ANT" = get_default_packet(type),
    "HEART_RATE_BLE" = get_default_packet(type),
    "HEART_RATE_BPM" = get_default_packet(type),
    "LUX" = get_lux(packets, tz, info, verbose),
    "METADATA" = get_metadata(packets, tz, verbose),
    "TAG" = get_default_packet(type)
  )
}