R/xgroup.R

In HikaGenji/fql: Functional Query Language

Defines functions xgroup

Documented in xgroup

xgroup <- function(d, cols=NULL) {
  key <- paste(paste("(",paste(cols,collapse=","), ")", sep=""),
                 "!", paste("(", apply(d[, cols,FALSE], 1, paste, collapse=","), ")", sep=""))
  by(d, key, function(x) x)
}