R/set_timestamp.R

In bupaR: Business Process Analysis in R

#' Set timestamp of eventlog
#'
#' @inheritParams act_collapse
#' @param timestamp New timestamp
#' @family Classifiers

#'
#' @export
#'
set_timestamp <- function(log, timestamp, eventlog = deprecated()) {
	UseMethod("set_timestamp")
}
#'
#' @describeIn set_timestamp Set timestamp of eventlog
#' @export
set_timestamp.eventlog <- function(log, timestamp, eventlog = deprecated()) {
	log <- lifecycle_warning_eventlog(log, eventlog)
	set_id(log, "timestamp", timestamp)
}