pkg/trunk/exec/cranpkgs

   1 #!/usr/bin/env r
   2
   3 library(cran2deb)
   4
   5 if (length(argv) == 0) {
   6     writeLines(sample(dimnames(available)[[1]],800))
   7     #writeLines(dimnames(available)[[1]])
   8 } else {
   9     if (argv[1] == 'query') {
  10         for (ctv in ctv.available) {
  11             writeLines(ctv$name)
  12         }
  13         q(save='no')
  14     }
  15     # list of task lists
  16     for (ctv in ctv.available) {
  17         if (ctv$name %in% argv) {
  18             writeLines(ctv$packagelist$name)
  19         }
  20     }
  21 }