R/set_activity_duration.R

In fgailly/BPS-package: R Business Process Model Simulation package

#' Adds an activity duration to an activity
#'
#' Function that can be used to specify how long it takes to execute an activity.
#' The function will alter the existing list of the activity
#' Note that this information should be added before running the transform_BPMN() function (see ?transform_BPMN())
#' @param process The process model
#' @param activity The activity of which the duration will be set. Accepts a list object created with the add_activity function OR with the import_BPMN function
#' @param duration Accepts numerics and all functions returning a numeric. If the duration is negative, the absolute value will be taken
#' @export
set_activity_duration <- function(process, activity, duration)
{
  if(!(activity %in% names(process)) || process[[activity]]$type != "activity" ) stop("activity was not defined by the Add_activity()-function")
  if(!is.numeric(duration) && !is.function(duration)) stop("duration should be of type numeric or should be a function")
  process[[activity]]$task <-duration
  #name <- activity$name
  #activity$task <- duration
  #assign(name, activity, pos = 1)
  return(process)
}