Plugged shallow() in duplicated, as mentioned in #617.

Rdatatable · Nov 1, 2014 · 6aac07e · 6aac07e
1 parent ac4935c
commit 6aac07e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/duplicated.R b/R/duplicated.R
@@ -13,7 +13,7 @@ duplicated.data.table <- function(x, incomparables=FALSE, fromLast=FALSE, by=key
  res <- rep.int(TRUE, nrow(x))
 
  if (query$use.keyprefix) {
- f = uniqlist(x[, query$by, with=FALSE])
+ f = uniqlist(shallow(x, query$by))
  if (fromLast) f = cumsum(uniqlengths(f, nrow(x)))
  } else {
  o = forderv(x, by=query$by, sort=FALSE, retGrp=TRUE)