Question

如何从R级别检查R的当前安装是否是最新的？找到已安装R的版本很容易，但如何检查最新版本的数量是多少？这种信息是否可以通过CRAN获得？

Answer 1

在我最喜欢的搜索引擎中快速搜索this post by 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网址并找到最新的之一：

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)
    }
}

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

2 个答案: