Which packages were installed from CRAN, GitHub, Bioconductor, etc.?
pkgSrc(pkg, lib.loc = NULL)
pkgs <- as.data.frame(installed.packages(), stringsAsFactors = FALSE)
ids <- which(!(pkgs$Priority %in% c("base", "recommended")))
pkgs <- pkgs[ids, ]
pkgs <- pkgs$Package
pkgs[pkgSrc(pkgs) == "CRAN"]
#> character(0)