cran2deb: add missing bundle hook.

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

diff --git a/pkg/trunk/cran2deb b/pkg/trunk/cran2deb
index 67b521eeeded0e16ad4030fb8e8cc8e1e8cd0917..956b726b176fb1108bdb9e08e5650f13f712d36c 100755 (executable)
--- a/pkg/trunk/cran2deb
+++ b/pkg/trunk/cran2deb
@@ -113,7 +113,11 @@ pkgname.as.debian <- function(name,repopref=NULL,version=NULL,binary=T) {
         # XXX: data.frame rownames are unique, so always override repopref for
         #      now.
         if (!(name %in% rownames(available))) {
-            stop(paste('package',name,'is not available'))
+            bundle <- r.bundle.of(pkgname)
+            if (is.na(bundle)) {
+                stop(paste('package',name,'is not available'))
+            }
+            name <- bundle
         }
         repopref <- repourl.as.debian(available[name,'Repository'])
         debname = paste('r',tolower(repopref),tolower(name),sep='-')