# NOT RUN {
measurement_handler <- handler(
type = 'MEASUREMENT',
FUN = function(obj, event) {
obj$measurement = get_attr(event, 'measurement')
return(obj)
}
)
bmi_handler <- handler(
type = 'BMI',
FUN = function(obj, event) {
obj$imc <- get_attr(event, 'mass') / get_attr(event, 'height')^2
return(obj)
}
)
handlers <- handlers_list(measurement_handler, bmi_handler)
# }
Run the code above in your browser using DataLab