R/calculate_magnitude.R

In catcrumpet/accelR: Accelerometer Data Analysis in R (experimental)

#' @export
calculate_magnitude <- function(...) {
  purrr::pmap_dbl(rlang::list2(...), ~sqrt(sum(c(...)^2)))
}

#' @export
add_magnitude <- function(acc_data, ..., magnitude = "magnitude") {
  dplyr::mutate(acc_data, !!magnitude := calculate_magnitude(!!rlang::enquo(...)))
}