The function packageHasNamespace
holds the key. Use it together with installed.packages
:
The following code loops through all of the library locations in .libPaths
:
pkgNS <- NULL
for(i in seq_along(.libPaths())){
libLoc <- .libPaths()[i]
pkgs <- installed.packages(lib.loc=libLoc)[, 1]
pkgNS <- c(pkgNS,
sapply(unname(pkgs), packageHasNamespace, package.lib=libLoc)
)
}
The result of this code is a named logical vector pkgNS
that is TRUE if the package has a namespace, FALSE if it doesn't.
To get only those packages that don't have a namespace, create a subset of pkgNS
where pkgNS
is FALSE:
pkgNS[!pkgNS]
abind bitops CircStats combinat corpcor deldir
FALSE FALSE FALSE FALSE FALSE FALSE
Design evd financial fpc getopt gsubfn
FALSE FALSE FALSE FALSE FALSE FALSE
ineq magic mlbench optparse plotrix ppcor
FALSE FALSE FALSE FALSE FALSE FALSE