R/CJ.dt.R

In stephlocke/optiRum: Financial Functions & More

#' Cross join two data.tables
#'
#' The package data.table has a CJ() function which produces a data.table out of two vectors.
#' This function does the Cartesian product of two data.tables instead.
#'
#' @param X A data.table
#' @param Y A data.table
#' @return dt A data.table
#'
#' @keywords data.table CJ
#' @family helper
#' 
#' @examples
#' library(data.table)
#' a  <- data.table(a=1:2, b=letters[1:2])
#' b  <- data.table(c=3:4, d=letters[3:4])
#' ab <- CJ.dt(a,b)
#' 
#' @export
#' 

CJ.dt <- function(X, Y) {
    k <- NULL
    X <- X[, c(k = 1, .SD)]
    setkey(X, k)
    Y <- Y[, c(k = 1, .SD)]
    setkey(Y, NULL)
    X[Y, allow.cartesian = TRUE][, `:=`(k, NULL)]
}