From a0ab32e8b1483ed1584c3ef1c5e0d9200714277d Mon Sep 17 00:00:00 2001 From: edd Date: Mon, 25 Jan 2010 17:54:27 +0000 Subject: [PATCH] update_cache reverted to prior version (which calls get_base_pkgs) get_base_pkgs now restricted to base package leaving Recommended packages for us to build git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@298 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- trunk/exec/get_base_pkgs | 2 ++ trunk/exec/update_cache | 11 +++++------ 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/trunk/exec/get_base_pkgs b/trunk/exec/get_base_pkgs index d08d625..9ec4d29 100755 --- a/trunk/exec/get_base_pkgs +++ b/trunk/exec/get_base_pkgs @@ -1,4 +1,6 @@ #!/usr/bin/env r +instPkgs <- installed.packages(lib.loc="/usr/lib/R/library") +instPkgs <- instPkgs[ instPkgs[,"Priority"] == 'base', ] for (pkg in rownames(installed.packages())) { message(pkg) } diff --git a/trunk/exec/update_cache b/trunk/exec/update_cache index 6f82b49..e6741a9 100755 --- a/trunk/exec/update_cache +++ b/trunk/exec/update_cache @@ -19,12 +19,11 @@ available <- available.packages(contrib.url(mirror)) message('updating list of available R task views...') ctv.available <- available.views(repo=mirror) -#message('updating list of base R packages...') -#base_pkgs <- readLines(pipe(paste('sudo pbuilder --execute --override-config --configfile' -# ,shQuote(pbuilder_config),'-- /usr/bin/R --vanilla 2>&1 >/dev/null <' -# ,shQuote(file.path(root,'exec/get_base_pkgs')) -# ,'| grep -v ^W:'))) -base_pkgs <- '' +message('updating list of base R packages...') +base_pkgs <- readLines(pipe(paste('sudo pbuilder --execute --override-config --configfile' + ,shQuote(pbuilder_config),'-- /usr/bin/R --vanilla 2>&1 >/dev/null <' + ,shQuote(file.path(root,'exec/get_base_pkgs')) + ,'| grep -v ^W:'))) message('updating list of existing Debian packages...') debian_pkgs <- readLines(pipe('apt-cache rdepends r-base-core | sed -e "/^ r-cran/{s/^[[:space:]]*r/r/;p}" -e d | sort -u')) -- 2.39.2