# NOT RUN {
library(eventr)
library(magrittr)
birth_event <- event(
id = 'first-id',
type = 'BIRTH',
time = '1936-11-09',
birth_date = '1936-11-09'
)
measurement_event <- event(
id = 'second-id',
type = 'MEASUREMENT',
time = '1937-11-09',
weight = list(value = 10,2, unit = "kg"),
height = list(value = 0,76, unit = "m")
)
death_event <- event(
id = 'third-id',
type = 'DEATH',
time = '2019-05-22',
death_date = '2019-05-22')
the_event_list <-
birth_event +
measurement_event +
death_event
# }
Run the code above in your browser using DataLab