R/swa_process.R

In PAHPLabResearch/FLASH: FLASH: Free Living Activity Study for Health

#' Processing function for armband files
#'
#' @param info list containing \code{file} and \code{id} elements
#' @param track data frame with data tracking information
#'
#' @keywords internal
swa_process <- function(info) {

  info$file %>%
  swa_read("Data") %>%
  add_id(info$id) %>%
  swa_check_variables(.) %>%
  swa_get_time(.) %>%
  swa_get_intensity(.) %>%
  {stats::setNames(
    ., paste("SWA", names(.), sep = "_")
  )} %>%
  {stats::setNames(
    ., gsub("\\.+", "_", names(.))
  )} %>%
  {stats::setNames(
    ., gsub("SWA_id", "id", names(.))
  )} %>%
  {structure(., row.names = seq(nrow(.)))}

}