r - 如何以编程方式检查当前安装的 R 是否是最新的？

Question

如何从 R 的级别检查当前安装的 R 是否是最新的？查找已安装 R 的版本很容易，但如何查看最新版本的编号？这类信息可以通过 CRAN 获得吗？

Answer 1

在我最喜欢的搜索引擎中快速搜索发现了 Yihui Xie 的这篇文章，我将它变成了一个函数：

checkRversion <- function(){
  x = readLines("http://cran.r-project.org/sources.html")
  # the version number is in the next line of 'The latest release'
  rls = x[grep("latest release", x) + 1L]
  newver = gsub("(.*R-|\\.tar\\.gz.*)", "", rls)
  oldver = paste(getRversion(), collapse = ".")
  # new version available?
  message("Installed version: ", oldver)
  message("Latest version: ", newver)
  compareVersion(newver, oldver)
}

正在使用：

checkRversion()

Installed version: 3.0.1
Latest version: 3.0.1
[1] 0

Answer 2

您可以使用gtools.

该代码类似于 Andrie 的答案，但/src/base/R明确使用文件夹而不是sources.html文件，因此它可能更健壮，因为它依赖于存在的实际二进制文件。

一个小问题是，gtools对文件夹名称进行硬编码，因此“按原样”他们的代码是错误的 - 但我非常喜欢这个想法，所以我更新了它以遍历可用的 CRAN url 并找到最新的：

checkRVersion <- function (quiet = FALSE) 
{
    baseUrl <- "http://cran.r-project.org/src/base/R-"
    majorVersion <- 3
    repeat {
        url <- paste(baseUrl, majorVersion, sep = "")
        if (url.exists(url)) {
            majorVersion <- majorVersion + 1
        }
        else {
            break
        }
    }

    url <- paste(baseUrl, (majorVersion-1), sep = "")
    page <- scan(file = url, what = "", quiet = TRUE)
    matches <- grep("R-[0-9]\\.[0-9]+\\.[0-9]+", page, value = TRUE)
    versionList <- gsub("^.*R-([0-9].[0-9]+.[0-9]+).*$", "\\1", matches)
    versionList <- numeric_version(versionList)

    if (max(versionList) > getRversion()) {
        if (!quiet) {
            cat("A newer version of R is now available: ")
            cat(as.character(max(versionList)))
            cat("\n")
        }
        invisible(max(versionList))
    }
    else {
        if (!quiet) {
            cat("The latest version of R is installed: ")
            cat(as.character(max(versionList)))
            cat("\n")
        }
        invisible(NULL)
    }
}