R/updatePackageObjects.R

In Bioconductor/updateObject: Find/fix old serialized S4 instances

### =========================================================================
### updatePackageObjects() and updateAllPackageObjects()
### -------------------------------------------------------------------------


### Return nb of updated files or negative error code.
updatePackageObjects <- function(pkgpath=".", filter=NULL,
                                 dry.run=FALSE, bump.Version=FALSE)
{
    get_descpath(pkgpath)  # just to get an early check of 'pkgpath'
    if (!isTRUEorFALSE(bump.Version))
        stop(wmsg("'bump.Version' must be TRUE or FALSE"))

    code <- updateSerializedObjects(pkgpath, recursive=TRUE,
                                    filter=filter, dry.run=dry.run)
    if (bump.Version && code > 0L) {
        ## bump_pkg_version() calls get_descpath() again so if the above
        ## call to get_descpath() emitted a warning then bump_pkg_version()
        ## will emit that same warning again. We use suppressWarnings() to
        ## prevent that.
        suppressWarnings(bump_pkg_version(pkgpath, update.Date=TRUE))
    }
    code
}

### Return a named integer vector **parallel** to 'all_pkgpaths'.
updateAllPackageObjects <- function(all_pkgpaths, skipped_pkgs=NULL,
                                    filter=NULL,
                                    dry.run=FALSE, bump.Version=FALSE)
{
    vapply(all_pkgpaths,
        function(pkgpath) {
            if (!is.null(skipped_pkgs) && (pkgpath %in% skipped_pkgs)) {
                message("Skip package ", pkgpath, " ==> ", .SKIPPED_PACKAGE)
                return(.SKIPPED_PACKAGE)
            }
            updatePackageObjects(pkgpath, filter=filter,
                                 dry.run=dry.run, bump.Version=bump.Version)
        },
        integer(1)
    )
}