bpmnR

Task 2

minimal_subset_attributes_list <-
  list(
    tasks = c("id", "name"),
    sequenceFlows = c("id", "name", "sourceRef", "targetRef"),
    gateways = c("id", "name", "gatewayType", "gatewayDirection"),
    startEvent = c("id", "name"),
    endEvent = c("id", "name")
  )
  

Task 3