R/mergeDT.R

In Blitzy29/R.PersonalTools: Personal tools that I'll need everywhere

mergeDT <- function(table1,id1,table2,id2) {
  table1 %<>% SetKeyAsCharacter(id1)
  table2 %<>% SetKeyAsCharacter(id2)
  tableMerge <- merge(table1,table2,by.x=id1,by.y=id2)
  return(tableMerge)
}

SetKeyAsCharacter <- function(table1,id1) {
  table1[,get("id1") := as.character(get(id1))]
  setkeyv(table1,id1)
  return(table1)
}