tags/pre-dual/R/lintian.R

   1 generate_lintian <- function(pkg) {
   2     lintian_src = file.path(lintian_dir, pkg$name)
   3     if (!file.exists(lintian_src)) {
   4         notice('no lintian overrides ', lintian_src)
   5         return()
   6     }
   7
   8     # copy the lintian file
   9     notice('including lintian file', lintian_src)
  10     lintian_tgt <- pkg$debfile(paste(pkg$debname, "lintian-overrides", sep="."))
  11     file.copy(lintian_src, lintian_tgt)
  12     invisible(NULL)
  13 }
  14