R/targeted_event.R

In individual: Framework for Specifying and Simulating Individual Based Models

#' @title TargetedEvent Class
#' @description Describes a targeted event in the simulation.
#' This is useful for events which are triggered for a sub-population.
#' @importFrom R6 R6Class
#' @export
TargetedEvent <- R6Class(
  'TargetedEvent',
  inherit = Event,
  public = list(
    #' @description Initialise a TargetedEvent.
    #' @param population_size the size of the population.
    initialize = function(population_size) {
      self$.event <- create_targeted_event(population_size)
    },

    #' @description Schedule this event to occur in the future.
    #' @param target the individuals to pass to the listener, this may be
    #' either a vector of integers or a \code{\link[individual]{Bitset}}.
    #' @param delay the number of time steps to wait before triggering the event,
    #' can be a scalar in which case all targeted individuals are scheduled for
    #' for the same delay or a vector of values giving the delay for that
    #' individual.
    schedule = function(target, delay) {
      # vector delay
      if (length(delay) > 1) {
        if (inherits(target, 'Bitset')) {
          if (target$size() > 0){
            targeted_event_schedule_multi_delay(self$.event, target$.bitset, delay)
          }
        } else {
          if (length(target) > 0) {
            stopifnot(is.finite(target))
            stopifnot(target > 0)
            targeted_event_schedule_multi_delay_vector(self$.event, target, delay)
          }
        }
      # single delay
      } else {
        if (inherits(target, 'Bitset')) {
          if (target$size() > 0){
            targeted_event_schedule(self$.event, target$.bitset, delay)
          }
        } else {
          if (length(target) > 0){
            stopifnot(is.finite(target))
            stopifnot(target > 0)
            targeted_event_schedule_vector(self$.event, target, delay)
          }
        }
      }
    },

    #' @description Get the individuals who are scheduled as a \code{\link[individual]{Bitset}}.
    get_scheduled = function() {
      Bitset$new(from = targeted_event_get_scheduled(self$.event))
    },

    #' @description Stop a future event from triggering for a subset of individuals.
    #' @param target the individuals to clear, this may be either a vector of integers or
    #' a \code{\link[individual]{Bitset}}.
    clear_schedule = function(target) {
      if (inherits(target, "Bitset")){
        targeted_event_clear_schedule(self$.event, target$.bitset)
      } else {
        targeted_event_clear_schedule_vector(self$.event, as.integer(target))
      }
    },

    #' @description Extend the target size
    #' @param n the number of new elements to add to the index
    queue_extend = function(n) {
      stopifnot(is.finite(n))
      stopifnot(n > 0)
      targeted_event_queue_extend(self$.event, n)
    },

    #' @description Extend the target size and schedule for the new population
    #' @param delays the delay for each new individual
    queue_extend_with_schedule = function(delays) {
      stopifnot(is.finite(delays))
      targeted_event_queue_extend_with_schedule(self$.event, delays)
    },

    #' @description Shrink the targeted event
    #' @param index the individuals to remove from the event
    queue_shrink = function(index) {
      if (inherits(index, 'Bitset')) {
        if (index$size() > 0){
          targeted_event_queue_shrink_bitset(
            self$.event,
            index$.bitset
          )
        }
      } else {
        if (length(index) != 0) {
          stopifnot(all(is.finite(index)))
          stopifnot(all(index > 0))
          targeted_event_queue_shrink(self$.event, index)
        }
      }
    },

    .process_listener = function(listener) {
      listener(
        event_get_timestep(self$.event),
        Bitset$new(from=targeted_event_get_target(self$.event))
      )
    },

    .process_listener_cpp = function(listener){
      process_targeted_listener(
        event = self$.event,
        listener = listener,
        target = targeted_event_get_target(self$.event)
      )
    },

    .resize = function() targeted_event_resize(self$.event)
  )
)