1 repourl_as_debian <- function(url) {
2 # map the url to a repository onto its name in debian package naming
3 if (length(grep('cran',url))) {
5 } else if (length(grep('bioc',url))) {
7 } else if (length(grep('omegahat',url))) {
9 } else if (length(grep('rforge',url))) {
12 fail('unknown repository',url)
15 pkgname_as_debian <- function(name,repopref=NULL,version=NULL,binary=T,build=F) {
16 # generate the debian package name corresponding to the R package name
17 if (name %in% base_pkgs) {
32 # XXX: data.frame rownames are unique, so always override repopref for
34 debname = tolower(name)
35 ### The source name should always be the same as the binary name
37 if (name %in% rownames(available)) {
38 repopref <- tolower(repourl_as_debian(available[name,'Repository']))
39 } else if (is.null(repopref)) {
42 debname = paste('r',repopref,debname,sep='-')
45 if (!is.null(version) && length(version) > 1) {
46 debname = paste(debname,' (',version,')',sep='')