R/pipe.transform.windowsToEvents.R

In tz-lom/Resonance-Rproj: Interface for Resonance project

pipe.transform.windowsToEvents <- function(input, transform){
  processor(
    input,
    prepare = function(env){
      SI.is.window(input) || stop("Input must be window")
      SI.event()
    },
    online = function(input){
      lapply(input, function(x){
        y <- transform(x)
        attr(y, 'TS') <- attr(x, 'TS')
        y
      })
    }
  )
}