#' @title Re map
#'
#' @description Construct an eventlog using an existing mapping.
#'
#' @param eventlog The event log data to be used.
#'
#' @param eventlog_mapping An existing eventlog mapping created by the mapping function
#'
#' @export re_map
re_map <- function(eventlog, eventlog_mapping) {
stopifnot("eventlog_mapping" %in% class(eventlog_mapping))
eventlog(eventlog,
case_id = eventlog_mapping$case_identifier,
activity_id = eventlog_mapping$activity_identifier,
activity_instance_id = eventlog_mapping$activity_instance_identifier,
lifecycle_id = eventlog_mapping$lifecycle_identifier,
timestamp = eventlog_mapping$timestamp_identifier,
resource_id = eventlog_mapping$resource_identifier,
order = ".order",
validate = FALSE) # assumes that data is OK upon for `re_map`
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.