R/re_map.R

#' @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`
}
gertjanssenswillen/bupaR documentation built on June 27, 2019, 4:15 p.m.