Advising, merge pins and old notes in EXCEL using R

rm(list=ls())
require(xlsx)
setwd("~/Dropbox/courses.student.research.dp/FYE_and_advising/advising.2015-2016/advising2016April")
list.files(path="in-files")

#read 3 files
tb2015 = read.xlsx2( "in-files/Advising,20151103.xlsx", 1 )
tb2015FYE = read.xlsx2( "in-files/qin-FYE-placement_and_pins_20150812.v2.xlsx", 1 )
tb16Sp = read.xlsx("in-files/pins_for_fall2016.xlsx", 1)

#merge 2 by 2. Always keep all the 2016 March PINs
tmpTb = merge( tb16Sp, tb2015FYE, all.x=TRUE )
tb0 = merge( tmpTb, tb2015, all.x=TRUE)

write.xlsx(tb0, "qin-advising-master-20160328.xlsx")