event_data %>%
    eventlog(case_id = "patient",
             activity_id = "handling",
             activity_instance_id = "handling_id",
             timestamp = "time",
             lifecycle_id = "registration_type",
             resource = "employee")