as_pm4py_marking: Convert to a PM4Py marking
In pm4py: Interface to the 'PM4py' Process Mining Library

Converts a character vector of place identifiers to a PM4Py marking object.

1	as_pm4py_marking(x, petrinet)

`x`	A character vector with (possible duplicate) place identifiers.
`petrinet`	A PM4Py Petri net.

if (pm4py_available()) {
  library(eventdataR)
  data(patients)

  # As Inductive Miner of PM4PY is not life-cycle aware, keep only `complete` events:
  patients_completes <- patients[patients$registration_type == "complete", ]

  net <- discovery_inductive(patients_completes)
  as_pm4py_marking(c("sink"), r_to_py(net$petrinet))
}