R/pipe.filterEvents.R

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

pipe.filterEvents <- function(input, match){
  processor(
    input,
    prepare = function(env){
      SI.is.event(input) || stop("Input must be event")
      SI(input)
    },
    online = function(input){
      Filter(match, input)
    }
  )
}