R/join_flyPAD_data.R

In Dahaniel/flyPADr: Import flyPAD data into R

#' join_flyPAD_data
#'
#' @param data imported flypad data from import_flyPAD()
#'
#' @return list containing 2 data frames with sips and activity_bouts of all joint experiments
#' @export
#'
#' @examples
join_flyPAD_data <- function(data) {
  for(i in names(data)) {
    data[[i]]$activity_bouts$experiment <- i
    data[[i]]$sips$experiment <- i
  }
  sips   <- do.call("rbind", lapply(data, "[[", c("sips")))
  activity_bouts <- do.call("rbind", lapply(data, "[[", c("activity_bouts")))
  return(list(sips = sips, activity_bouts = activity_bouts))
}