# NOT RUN {
set_birth_date <- function(obj, event){
obj$birthDate <- event$body$birthDate
return(obj)
}
set_death_date <- function(obj, event){
obj$deathDate <- event$body$deathDate
return(obj)
}
birth_handler <- handler(type = 'BIRTH', FUN = set_birth_date)
birth_handler
death_handler <- handler(type = 'DEATH', FUN = set_death_date)
death_handler
# }
Run the code above in your browser using DataLab