R/Check_This.R

In polynomial: Handling Univariate Polynomials

if (FALSE) {
    (function() {
        odir <- getwd()
        on.exit(setwd(odir))
        setwd("~")
        pkg <- "polynomial"
        command <- sprintf("Rcmd build %s", pkg)
        cat(normalizePath(getwd()), ">", command, "\n\n", sep = "")
        system(command)
        command <- sprintf("Rcmd check --as-cran --no-multiarch %s_%s.tar.gz",
            pkg, utils::packageVersion(pkg))
        cat(normalizePath(getwd()), ">", command, "\n\n", sep = "")
        system(command)
    })()
}