loaded package requires update

gistfile1.r

loadedPackageRequiresUpdate <- function(pkgs) {
  if (any(pkgs %in% loadedNamespaces())) {
    return(TRUE)
  }
  else {
    # compute dependent packages
    avail <- available.packages()
    if (getRversion() >= "2.15")
      deps <- tools:::package_dependencies(pkgs, db = avail, recursive = TRUE)
    else
      deps <- tools:::.package_dependencies(pkgs, db = avail, recursive = TRUE)
    deps <- unique(as.character(c(deps, recursive=TRUE)))
    
    # exclude built in R packages (e.g. tools, utils, methods)
    deps <- intersect(deps, row.names(avail))
    
    # check whether a loaded package will be updated
    loadedDeps <- intersect(deps, loadedNamespaces())
    return(length(loadedDeps) > 0)
  }
}