Check uniqueness of rows with respect to keys.

Source: R/joinController.R

Can be an expensive operation.

keysAreUnique(tDesc)

Arguments

tDesc

description of tables, from tableDescription (and likely altered by user).

Value

logical TRUE if keys are unique

See also

tableDescription

Examples


d <- data.frame(x=c(1,1,2,2,3,3), y=c(1,2,1,2,1,2))
tDesc1 <- tableDescription('d1', d)
tDesc2 <- tableDescription('d2', d)
tDesc <- rbind(tDesc1, tDesc2)
tDesc$keys[[2]] <- c(x='x')
keysAreUnique(tDesc)

#>    d1    d2 
#>  TRUE FALSE