R/RawGenomicSignals.append.R

In HenrikBengtsson/aroma.core: Core Methods and Classes Used by 'aroma.*' Packages Part of the Aroma Framework

setMethodS3("append", "RawGenomicSignals", function(this, other, addId=TRUE, ...) {
  # Argument 'other':
  other <- Arguments$getInstanceOf(other, class(this)[1])

  if (addId) {
    # Keep track of origins, but updating the locus IDs
    if (is.null(this$id)) {
      this$id <- rep(1L, times=nbrOfLoci(this))
    }

    if (is.null(other$id)) {
      nextId <- max(this$id, na.rm=TRUE) + 1L
      other$id <- rep(nextId, times=nbrOfLoci(other))
    }
  }

  # Append
  res <- rbind(this, other)

  res
})