# NOT RUN {
first_event <- event(id = 'first-event', type = 'FIRST_EVENT', time = Sys.time())
second_event <- event(id = 'second-event', type = 'SECOND_EVENT', time = Sys.time())
the_event_list <- event_list(first_event, second_event)
get_type(the_event_list)
# }
Run the code above in your browser using DataLab