all.pkgs <- as.data.frame(installed.packages(), stringsAsFactors = FALSE, row.names = FALSE)
pkginfo <- c("Package", "Version", "Built", "LibPath")
pkgs <- all.pkgs[,pkginfo]

local.pkgs <- pkgs[pkgs[,"LibPath"]==.libPaths()[1],]
#pkgs[pkgs[,"Package"]=="",]

head(local.pkgs)