Show difference between 2 keys

Show difference between 2 keys

keyDiff(oldkey, newkey)

Arguments

oldkey

key, original

newkey

key, possibly created by keyUpdate or by user edits

Value

NULL, or list with as many as 2 key difference data.frames, named "deleted" and "neworaltered"

Author

Ben Kite <bakite@ku.edu> and Paul Johnson <pauljohn@ku.edu>

Examples

dat1 <- data.frame("Score" = c(1, 2, 3, 42, 4, 2),
                   "Gender" = c("M", "M", "M", "F", "F", "F"))
## First try with a long key
key1 <- keyTemplate(dat1, long = TRUE)
key1$value_new <- gsub("42", "10", key1$value_new)
key1$value_new[key1$name_new == "Gender"] <-
       mgsub(c("F", "M"), c("female", "male"),
       key1$value_new[key1$name_new == "Gender"])  
key1[key1$name_old == "Score", "name_new"] <- "NewScore"
dat2 <- data.frame("Score" = 7, "Gender" = "other", "Weight" = rnorm(3))
dat2 <- plyr::rbind.fill(dat1, dat2)
dat2 <- dat2[-1,]
key2 <- keyUpdate(key1, dat2, append = TRUE)
(kdiff <- keyDiff(key1, key2))
#> keyDiff: 3 rows in key2 are not in key1
#> keyDiff: 3 rows in key2 are not in key1
#>        name_old name_new class_old class_new value_old value_new missings
#> 4.new    Gender   Gender character character     other     other         
#> 11.new    Score NewScore   integer   integer         7         7         
#> 12.new   Weight   Weight   numeric   numeric         .         .         
#>        recodes
#> 4.new         
#> 11.new        
#> 12.new