R/release.R

#'Release dates of R
#'
#'@export
R.release.dates <- local({
  # Generation:
  # df <- rversions::r_versions()
  # R.release.dates.src <- deparse(
  #  sapply(target.versions, function(version) {
  #    as.Date(df[df$version == version,]$date) + 1
  #  })
  # )
  # cat(gsub(x = R.release.dates.src, ", ", ",\n", fixed = TRUE))
  x <- c(
    "3.0.0" = 15799,
    "3.0.1" = 15842,
    "3.0.2" = 15974,
    "3.0.3" = 16136,
    "3.1.0" = 16171,
    "3.1.1" = 16262,
    "3.1.2" = 16375,
    "3.1.3" = 16504,
    "3.2.0" = 16542,
    "3.2.1" = 16605,
    "3.2.2" = 16662,
    "3.2.3" = 16780,
    "3.2.4" = 16871,
    "3.2.5" = 16906,
    "3.3.0" = 16925,
    "3.3.1" = 16974,
    "3.3.2" = 17106,
    "3.3.3" = 17232,
    "3.4.0" = 17278,
    "3.4.1" = 17348,
    "3.4.2" = 17438,
    "3.4.3" = 17501,
    "3.4.4" = 17606,
    "3.5.0" = 17645,
    "3.5.1" = 17715,
    "3.5.2" = 17886,
    "3.5.3" = 17967,
    "3.6.0" = 18013,
    "3.6.1" = 18083,
    "3.6.2" = 18243,
    "3.6.3" = 18322,
    "4.0.0" = 18377,
    "4.0.1" = 18420,
    "4.0.2" = 18436,
    "4.0.3" = 18546,
    "4.0.4" = 18674,
    "4.0.5" = 18718,
    "4.1.0" = 18766,
    "4.1.1" = 18850,
    "4.1.2" = 18933,
    "4.1.3" = 19062,
    "4.2.0" = 19105,
    "4.2.1" = 19167
  )
  class(x) <- "Date"
  x
})
wush978/rpvm documentation built on Oct. 30, 2022, 11:22 p.m.