R/set_resource_to_activity.R

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

#' Specify which resource is responsible for executing an activity
#'
#' Specify which resource is responsible for executing 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 processmodel The processmodel
#' @param activity The activity a resource should be added to. Accepts a list object created with the add_activity function OR with the import_BPMN function
#' @param resource Specify the name of the resource type as a character variable. The same resource type should be later defined in the simulation environment (see ?create_resource())
#' @param amount Can be used to indicate that more than 1 instance of the resource type is needed to execute an activity.
#' @return process model
#' @export
set_resource_to_activity <- function(processmodel, activity, resource = '', amount= 1)
{
  if(!(activity %in% names(processmodel))  || processmodel[[activity]]$type != "activity" ) stop("activity was not defined by the Add_activity()-function")
  if(!is.character(resource)) stop("resource is not of the character type")
  if(!is.numeric(amount) || as.integer(amount) != amount || amount < 0) stop("amount is not a positive integer")
  processmodel[[activity]]$resource <-resource
  processmodel[[activity]]$nmbr_resources <- amount
  return(processmodel)
}