diff options
Diffstat (limited to 'dev-lang/R/files/R-2.14.2-prune-package-update.patch')
| -rw-r--r-- | dev-lang/R/files/R-2.14.2-prune-package-update.patch | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/dev-lang/R/files/R-2.14.2-prune-package-update.patch b/dev-lang/R/files/R-2.14.2-prune-package-update.patch deleted file mode 100644 index 8b4b76916e1d..000000000000 --- a/dev-lang/R/files/R-2.14.2-prune-package-update.patch +++ /dev/null @@ -1,25 +0,0 @@ -Index: src/library/utils/R/packages.R -=================================================================== ---- src/library/utils/R/packages.R (revision 58579) -+++ src/library/utils/R/packages.R (working copy) -@@ -323,6 +323,20 @@ - oldPkgs <- old.packages(lib.loc = lib.loc, - contriburl = contriburl, method = method, - available = available, checkBuilt = checkBuilt) -+ ## prune package versions which are invisible to require() -+ if(!is.null(oldPkgs)) { -+ pkg <- 0 -+ while(pkg < nrow(oldPkgs)) { -+ pkg <- pkg + 1 -+ if(find.package(oldPkgs[pkg], lib.loc = lib.loc) != find.package(oldPkgs[pkg], lib.loc = oldPkgs[pkg,2])) { -+ warning(sprintf("package '%s' in library '%s' will not be updated", -+ oldPkgs[pkg], oldPkgs[pkg, 2]), -+ call. = FALSE, immediate. = TRUE) -+ oldPkgs <- oldPkgs[-pkg, , drop = FALSE] -+ pkg <- pkg - 1 -+ } -+ } -+ } - if(is.null(oldPkgs)) - return(invisible()) - } else if (!(is.matrix(oldPkgs) && is.character(oldPkgs))) |