anchor.diff:        "OK      :",sprintf("%3d",length(ok)),"\n",
         "TOTAL   :",length(e)+length(w)+length(n)+length(ok),"/",length(deps),"\n",
         "RUNNING :",sprintf("%3d",length(r)),":",paste(sort(names(x)[r])),"\n",
  -      if (length(ns)==0) "\n" else paste0("NOT STARTED (first 5 of ",length(ns),") : ",paste(sort(names(x)[head(ns,5)]),collapse=" "),"\n")
  +      if (length(ns)==0) "\n" else paste0("NOT STARTED (first 20 of ",length(ns),") : ",paste(sort(names(x)[head(ns,20)]),collapse="|"),"\n")
         )
     invisible()
   }
  
positive.code: new = 0
  for (p in deps) {
     fn = paste0(p, "_", avail[p,"Version"], ".tar.gz")
     if (!file.exists(fn) || identical(tryCatch(packageVersion(p), error=function(e)FALSE), FALSE)) {
       system(paste0("rm -f ", p, "*.tar.gz"))  # Remove previous *.tar.gz.  -f to be silent if not there (i.e. first time seeing this package)
       system(paste0("rm -rf ", p, ".Rcheck"))  # Remove last check (of previous version)
       if (!length(grep("bioc",avail[p,"Repository"]))) {
  
negative.code:    } else {
       old = old+1
     }
  }
  cat("New downloaded:",new," Already had latest:", old, " TOTAL:", length(deps), "\n")
  table(avail[deps,"Repository"])
  