R/marking.R

In bupaverse/petrinetR: Building, Visualizing, Exporting and Replaying Petri Nets

#' @title Marking
#'
#' @description Get the current marking of a Petri Net
#'
#' @param PN A Petri Net
#'
#' @export marking


marking <- function(PN) {

	lifecycle::deprecate_warn(
		when = "0.3.0",
		what = "marking()",
		with = "initial_marking()")


	return(PN$marking)
}