R/duplicated.R

Defines functions unique.lvec duplicated.lvec

Documented in duplicated.lvec unique.lvec

#' Find duplicates in a vector
#'
#' @param x an object of type \code{\link{lvec}}.
#' @param incomparables passed on to \code{link{duplicated}}. 
#' @param fromLast not supported.
#' @param ... passed on to \code{\link{duplicated}}.
#'
#' @details
#' Because this function works on chunks of data the data first needs to be 
#' sorted. Since a non stable sort is used, which of the duplicates is marked
#' as duplicate is undefined. This is unlike the regular 
#' \code{\link{duplicated}} in which \code{fromLast} determines which records
#' are marked as duplicates.
#' 
#' The function processes the data in chunks. The size of the chunks can be 
#' controlled using the option `chunk_size` (see \code{\link{chunk}}).
#' 
#' @importFrom utils head tail 
#' @rdname duplicated
#' @export
duplicated.lvec <- function(x, incomparables = FALSE, fromLast = FALSE, ...) {
  if (fromLast != FALSE) stop("fromLast is not supported")
  chunks <- chunk(x)
  # Calculate the order of the vector; we only need to sort between the
  # chunks; the chunks themselves do not need to be sorted
  pivots <- sapply(chunks, tail, n = 1)
  pivots <- head(pivots, -1)
  if (length(pivots)) {
    o <- partial_order(x, pivots = pivots)
  } else {
    o <- as_lvec(seq_len(length(x)))
  }
  # Same elements should now be sorted into same chunk (except at borders);
  # therefore, we can look for duplicates within chunks; we only need to take
  # into account the last value from the previous chunk
  result <- lvec(length(x), type="logical")
  prev <- NULL
  for (c in chunks) {
    oc <- lget(o, range = c)
    d <- as_rvec(lget(x, oc))
    dup <- duplicated(c(prev, d), incomparables = incomparables, ...)
    lset(result, index = oc, values = tail(dup, length(d)))
    # no need to use na.rm=TRUE; as the partial order will put NA's last
    prev <- max(d) 
  }
  result
}

#' @rdname duplicated
#' @export
unique.lvec <- function(x, incomparables = FALSE, ...) {
  d <- duplicated(x, incomparables = incomparables, ...)
  lget(x, !d)
}

#duplicated.lvec <- function(x, incomparables = FALSE, ...) {
#  o <- order(x)
#  chunks <- chunk(o)
#  result <- lvec(length(x), type="logical")
#  prev <- NULL
#  for (c in chunks) {
#    oc <- lget(o, range = c)
#    d <- as_rvec(lget(x, oc))
#    dup <- duplicated(c(prev, d), incomparables = incomparables, ...)
#    lset(result, index = oc, values = tail(dup, length(d)))
#    prev <- tail(d, 1)
#  }
#  result
#}

Try the ldat package in your browser

Any scripts or data that you put into this service are public.

ldat documentation built on May 24, 2018, 9:04 a.m.