if (name %in% rownames(available)) {
repopref <- tolower(repourl_as_debian(available[name,'Repository']))
} else if (is.null(repopref)) {
repopref <- 'unknown'
}
debname = paste('r',repopref,debname,sep='-')
if (name %in% rownames(available)) {
repopref <- tolower(repourl_as_debian(available[name,'Repository']))
} else if (is.null(repopref)) {
repopref <- 'unknown'
}
debname = paste('r',repopref,debname,sep='-')