From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:15:32 +0000 (+0000)
Subject: cran2deb: support for building CRAN task views.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=23d52facc138d3f942050c665803432f81d6376b;p=cran2deb.git

cran2deb: support for building CRAN task views.

task views have varying degrees of failure.

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@39 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---

diff --git a/pkg/trunk/build_ctv b/pkg/trunk/build_ctv
new file mode 100755
index 0000000..754dd58
--- /dev/null
+++ b/pkg/trunk/build_ctv
@@ -0,0 +1,11 @@
+#!/usr/bin/env rc
+
+for (ctv in `{./cranpkgs query}) {
+    echo task view $ctv...
+    if (![ -e ctv/$ctv ]) {
+        ./build_some $ctv
+        mkdir -p ctv/$ctv
+        mv warn fail ctv/$ctv
+    }
+}
+
diff --git a/pkg/trunk/build_some b/pkg/trunk/build_some
index 86f114c..dd12c2d 100755
--- a/pkg/trunk/build_some
+++ b/pkg/trunk/build_some
@@ -1,12 +1,12 @@
 #!/usr/bin/rc
 
 mkdir -p warn fail
-./cranpkgs >all_pkgs
+./cranpkgs $* >all_pkgs
 for (pkg in `{cat all_pkgs}) {
     if (~ $pkg *..* */*) {
         echo bad name $pkg >>fail/ERROR
     } else {
-        echo $pkg...
+        echo .. package $pkg
         fail=0
         ./cran2deb $pkg >fail/$pkg >[2=1] || fail=1
         if (~ $fail 0) {
diff --git a/pkg/trunk/cranpkgs b/pkg/trunk/cranpkgs
index ee2462f..8fbe81f 100755
--- a/pkg/trunk/cranpkgs
+++ b/pkg/trunk/cranpkgs
@@ -1,3 +1,23 @@
 #!/usr/bin/env r
-#writeLines(sample(dimnames(available.packages(contriburl=contrib.url('http://cran.uk.r-project.org/')))[[1]],300))
-writeLines(dimnames(available.packages(contriburl=contrib.url('http://cran.uk.r-project.org/')))[[1]])
+
+root <- '/home/cb/work/gsoc/cran2deb'
+# we cache the list of available packages
+load(file.path(root,'var/cache/available.cache.Rd'))
+
+if (length(argv) == 0) {
+    writeLines(sample(dimnames(available)[[1]],800))
+    #writeLines(dimnames(available)[[1]])
+} else {
+    if (argv[1] == 'query') {
+        for (ctv in ctv.available) {
+            writeLines(ctv$name)
+        }
+        q(save='no')
+    }
+    # list of task lists
+    for (ctv in ctv.available) {
+        if (ctv$name %in% argv) {
+            writeLines(ctv$packagelist$name)
+        }
+    }
+}
diff --git a/pkg/trunk/update_available b/pkg/trunk/update_available
index e7cb5f7..72887dc 100755
--- a/pkg/trunk/update_available
+++ b/pkg/trunk/update_available
@@ -2,4 +2,7 @@
 message('updating list of available R packages...')
 available <- available.packages(contrib.url('http://cran.uk.r-project.org/'))
 available <- rbind(available,available.packages(contrib.url('http://www.bioconductor.org/')))
-save(available, file='var/cache/available.cache.Rd',eval.promises=T)
+message('updating list of available R task views...')
+library(ctv)
+ctv.available <- available.views(repo='http://cran.uk.r-project.org/')
+save(available, ctv.available, file='var/cache/available.cache.Rd',eval.promises=T)