branch/double_build/exec/cran_pkgs

   1 #!/usr/bin/env r
   2 ## DOC: cran2deb cran_pkgs
   3 ## DOC:     print a list of 800 packages picked at random
   4 ## DOC: cran2deb cran_pkgs query
   5 ## DOC:     print the names of all CRAN TaskViews
   6 ## DOC: cran2deb cran_pkgs taskview1 taskview2 ...
   7 ## DOC:     print the names of all packages in a particular CRAN TaskView
   8 ## DOC:
   9
  10 library(cran2deb)
  11
  12 if (length(argv) == 1) {
  13     writeLines(dimnames(available)[[1]])
  14 } else {
  15     argv = argv[2:length(argv)]
  16     if (argv[1] == 'query') {
  17         for (ctv in ctv.available) {
  18             writeLines(ctv$name)
  19         }
  20         q(save='no')
  21     }
  22     # list of task lists
  23     for (ctv in ctv.available) {
  24         if (ctv$name %in% argv) {
  25             writeLines(ctv$packagelist$name)
  26         }
  27     }
  28 }