# get names of installed packages
packs <- installed.packages()
exc <- names(packs[,‘Package‘])
# get available package names
av <- names(available.packages()[,1])
# create loooong string
ins <- av[!av %in% exc]
install.packages(ins)
原文：http://my.oschina.net/Xwoder/blog/314373