Nothing
#' Get nodes from (marked) petrinet
#'
#' @inheritParams flows
#' @export
#'
nodes <- function(PN) {
UseMethod("nodes")
}
#' @export
nodes.petrinet <- function(PN) {
places <- places(PN) %>% mutate(type = "place")
transitions <- transitions(PN) %>% mutate(type = "transition")
places %>%
bind_rows(transitions)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.