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 (executable)
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 86f114ca0be1f8353f798bdd4860f8570b0a85e9..dd12c2df15772066a3a4d031b79a79a4ea53b771 100755 (executable)
--- 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 ee2462f59130a23869f1a08a40da77d5850a8bd5..8fbe81f8e92c3ee3ecc86cf8f261382441235024 100755 (executable)
--- 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 e7cb5f787ddb15453985ac45cf1605efdd7792e1..72887dc249624ffc48e7e1f4a51c7ade52d0e635 100755 (executable)
--- 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)