R/ts2IntervalV2.R

In fjbaron/accelerator: A Tidy Framework For Accelerometry

#' Title
#'
#' @param ts 
#' @param nucleos 
#' @param currentProject 
#' @param ... 
#'
#' @return
#' @export
#'
#' @examples
ts2IntervalV2 <- function(ts,currentProject,nucleos=numCores(4),...){
  resultado=parallel::mclapply(currentProject$defineWhat,function(x)x(ts,...)[["intervals"]],mc.cores=nucleos)
  names(resultado)=names(currentProject$defineWhat)

  resultado %>% keep(function(df) is.data.frame(df))
 
 
}