new_build_version <- function(pkgname) {
if (!(pkgname %in% rownames(available))) {
- bundle <- r_bundle_of(pkgname)
- if (is.null(bundle)) {
- fail('tried to discover new version of',pkgname,'but it does not appear to be available')
- }
- name <- bundle
+ fail('tried to discover new version of',pkgname,'but it does not appear to be available')
}
db_ver <- db_latest_build_version(pkgname)
db_succ <- db_latest_build_status(pkgname)[[1]]