eventr (version 1.0.0)

+.handler: Add handlers to a handlers_list

Description

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

Usage

# S3 method for 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

# NOT RUN {
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

# }