Defines functions rbind_e4

Documented in rbind_e4

#' Row-bind E4 datasets
#' @param data An object read in by read_e4
#' @importFrom dplyr bind_rows
#' @export
rbind_e4 <- function(data){
  out <- list()
  nms <- names(data[[1]])
  for(name in nms){
    # retrieve data
    dat <- lapply(data, "[[", name)
    out[[name]] <- bind_rows(dat)

Try the wearables package in your browser

Any scripts or data that you put into this service are public.

wearables documentation built on Dec. 20, 2021, 5:08 p.m.