handler-add: Add handlers to a handlers_list

In eventr: Create Event Based Data Architectures

Description

Merge two handler objects or add a handler in a handlers_list or dispatcher objects.

Usage

## S3 method for class 'handler'
e1 + e2

Arguments

e1	A handler, handler_list or dispatcher object.
e2	A handler or handlers_list object.

Value

Retun a handlers_list object.

Examples

library(eventr)
library(magrittr)

birth_handler <- handler(type = 'BIRTH', FUN = function(obj, event){
  obj$birth_date <- get_body_attr(event, 'birth_date')
  return(obj)
})

measurement_handler <- handler(type = 'MEASUREMENT', FUN = function(obj, event){

  obj$weight <- get_body_attr(event, 'weight')
  obj$height <- get_body_attr(event, 'height')
  return(obj)

})

death_handler <- handler(type = 'DEATH', FUN = function(obj, event){
  obj$death_date <- get_body_attr(event, 'death_date')
  return(obj)
})

handlers <- birth_handler +
  measurement_handler +
  death_handler

eventr documentation built on July 8, 2020, 7:32 p.m.