# NOT RUN {
str(pd <- pkgDesc("sfsmisc"))
pd[c("Date","Packaged", "Built","file")]
pkgBuilt("sfsmisc")
pkgs <- c("grid", "lattice", "MASS", "Matrix", "nlme", "lme4", "sfsmisc")
pkgs <- c("foobar", "barbar", pkgs, "kitty")
pkgsOk <- basename(find.package(pkgs, quiet=TRUE))
mpkg <- sapply(pkgsOk, pkgBuilt)
stopifnot(is.matrix(mpkg), nrow(mpkg) == 2)
mpkg["Built",]
# }
Run the code above in your browser using DataLab