'y3G|= t.
Q ?#Kc֍ü4y
WvŔ b&I0N8 N(r:|>JKK)--rq|> 0HdP=D"T%kw聰o\ts&=F ~qi,Mu;ںw0eP4/X˓mG9J`joFtttJ[[`D"Á르2JJJx<Ƚ%N^$g+=9x mH4 ~a iXB^Ȯ|=WgE^$kYgEX権m }ÏAhkk#҅ 4a^/#'Kb!ppX/$);3:K ;>sL
_[x{ui:iY@,vf$ޑ` ,ʆ-RuH$fq[[[,6|,.++, ,Jblȝ#_^.z
YZdz4 Ue)rK )u(Jv=5GoR̕ʒ;YL #%صh,(ewH
A*$ŚQg
Hv:M^Y#F{BE/Ͷ M1ӎsr_<߿c7H`5]ld}r&LR"Iu|nOk CoɤƎ]-ttt5 B ǃ1fdęQo=$ p܌J;I]$lkR"ya4!`>fIO8oIBdNgC
v0}>ߐŃEO$(Ӑee/92͔eu?p,fp y3/ Ieos$|HD)R$=^nwA$D"'oعsPMg I:xe{A^8P7o4$ IX%ށIմUCUw$BH4k`(\)% H**>|
&ɂ#/ f`2Li9 @XBIDF: 5XM(Vflnbݴ"O+;ӟ&Aǎf݇#zk$o(hsQ^+U{w_?M($,\B<.+㫽9P
OW
AHv@S{"15\qʱ|쩘[$5lӞ Yw[-2NBK*ug[U%W &QhkkKBGo҅ ;p5.95榖x:vOtCvϩӣ [l2 ;C53~"&PU塼܍i]j[[[ ߀ m6 $ĺ{ z VZz}{wla 5^XPk!jƗpʼ.k&eF ʜ(/bn7VUUb1dqap="0މR7?7 ӼRJC,= 5 ^BisSwt2gL+kqd^NuUQZlri)QeXPH$EF
]:m zy22IlR K詝!~I'OS&"h@Һ~!`Oc^P?|nN$aBMd&^)$eM걩Aky ֶeS&2kfE)*YT"ju#HYY!)2`Z==ur)n ,KzDIW" #r6<3EEE&Ip{xRrhP`t'k {"$jN*@XB(DUU\.'~FS-l9-4 DH$ 8 tC Y)xV~Zti #UxV>$nt6e~g?_QfX;I$[ L\:莊Ǝkt ub̪lj]za_Ht'`{bI[ĬpI\8ëbeCvim8 ^|~ <||xf)&Mnۍ5nJy;^.˺i>Ldx<U%?w TfhzSAfliC4\pxv4w̚gaZ.nYL І;$iW6vbkp$q&yeÑƵڥ Lw?hؓ;P薡,[Lp5[g"6bI$Hi"XQ$0 l8Jс(Þ4M#F\flGC$U% ز,cwIRts$jx4ܥYO- $N&B ֹB*+?ir3'E=+??0:G$cph>I {#Qt26o>hZzwLW
= Iy6? _ U& L8|N=Hcn~pޣͬzL qbANl+v-*"HJbtAIwB <N$ J,J2@ 2J3`:
w Q6ȫi^s29awP .g#ňb
W3nVoB'y%ֱH9_*zWCk_>zp8F70Cn#YPb: *$Btݲᇂ~43HfG
ii;TAIf
wo%$Iw' vm|j%ӍF6jaOx-Mޞ[AI\2 Abr . 7-ks6g:k9Kwy =QIh4% f95FӥFM|O\#s`ۇ v6ȫjA'dϠxcޡ 0fN$N1"q4Mjvq\^CfP<3y{ԲX,idO%V5=wP5ELsvg3P8lH$5Ù HL&|ء( 4~7ti9&Ñs{C9;To"`vX8Atxނ$|>Ng%x<ݐء3@pX3# ?7\Lfv}ap')b#ŔYPt:NO%-K,-4
4g{>RkC H` S7L̊$M@ & >A_f飡y>k Ӝ6H,IG߭|rp82 J740CI_52L\cXH%Yz*% $q5|\PMaǑ; UAIfݲױ|2/aGӼWd4OڰS0j,ޫ Ϫi U# ~GSc1h˱%.&4UU@rFQPbY"no##d Eߏ6Mir! aEBI{ 7ǴnXG%A Gq ޱ(yshXA7=G?E'2߮#kF٧?)F Yt((-bwj ;y;)
];*t0^z |;]dv=CZ2y`f !Y,h$; o
Yuɵ9B5 DR%RI$tVTަ0vw>Hk0NJp;Ԗ6)c=N,LlIs&Ldͷ* 1'B
eyaIB,4n63fPi#NCc(pGm6MPa8 p SƇx͝n?M1)UԎ>/bp;LqƂ\px&`O
e1BT/<'g< D4
˕.0*zK1
gH kVO{-1|R a4M`TH wF3nji唕t5yoۻh%$}z,I;Gb
v{gΛFE
1q wLJw,VwvS@9Dޞ8,:-K bݷYX a: TY
R>#)6nnao}9*L%mxS m$&m ?|̪
|Ty;gyyʪj\hJxK J,_A ߥi'Yªr}A__YmąBb6;EF<WE@{#?/mO=I'0veͪ>d [i{'L"Nz$ ]m #Di^l?$q{,K$*OU ~"5P`!SU Q\4 m7{%}á]H}j-y>,iAE d-%1K^Ou
MUHvswlO_goן
Xq͘[t2S>8X7Rxe[yE`fdY☣XM!pS{zxɛyB31at)^83!m6^Ex3ʪ.v 7ѧO~_DM+?!
a}zv> D`(]%
$XDb XB`x8jי,+zVβreT-8ɟ< O=H bmj2/S*i,
xS6niM7[hBnc3N&OEjG^B6I҃`=MY43Njqwy3aq8|ɥ̽N2}L?,|m BQR]$(A;+77 ߄ w}LJi$ͯ]SJc|J4@ @,K)
m1ohN`YD8K4koS@3aA$DJ٠s:s/_$1K:CKD*$:$IiHt=C)ԯT5F-9_y XŬ. }=e,ظҴft蠭6 xK;
歭#IS'JD[{:>VV a_k;OLxgM#w_0PH2ۊ{YHhB* keoQрRJ>=݆tRRRjo)V)%.G]s-z1Jv>( Bp8(--D$$pvhooׇ'hJ(>H. !صDB8Y8IF3F I`w7CY#@SFSUZES.j C\TTDqq1eeeiB/31AݻS9G.I ٍ\͊Mv7L}
MOM%C
giv_~VNހ&AQ8rgR\. "Fј8K' $1j)ؽ^L$B{v z-4:8 ^/%%%RRRBQQQC5 J[*
]!
]9L$ ^UD K[dJJ*ax.I-4OM-[6$DP lݓ*RP
!DցM蔚QP4E25v>ڽs ͆5%Lcu=p kbB!DZ0 ɌS,X"֟tѣ )$)1lϪUx 'n\6l&u {(P-0C) ,4Ibm9Ȳӑ{˕1+Ֆq;9ۅr W 0
Dдۚ(J 'FK,Nݞub0,}v""FWZđ IYKq XH2ujHQls;X?L8?lضD[k0!Xu5Psca
nҒ솷guv^; gU} ;fWe ֙ Ѧ,1$F>*H,ݿ %ֿGi4! =˝ue U YfW",I,=a,~ q3+= XP(t}l 2!2uv
hkkK zrφĒ,ؾm[} }>#?łLl߲naĒ6 S&f fO*Ǚ Evt.14~_A #PZVhifߛo+jY#X"$ome_D1d=4gfR ㊩)2uB0~\155/)펬 l|̞TjZՊ$eMf s;7*$Y: Q3K_[@Cc+֯WQEq:YX$vM̪J]|)|~h$ =^/cN? Q$YF 42"/ MQ4b`KxQ@'IBU4}
㮮FF6'D{;BS}W LU~l9m,YuI]otژ4Y3+\oz %{"^p/O5[ (8hGdjK=<ϟ6Sʐ%P(D8 NU qg/ec :GU%N,21 1} D:/2) /K+)_d*Ӧ}%./Nh
U2byT1qB >W9 l\ y`Vh
=N+e f+)ev uv!1xnjaƗßHdؓ"ĉddryG Bwg#
C2}j]eTMh`(I8ܑȁg崦:M\ `8 3c# E@90t#ĒĤK>G ii@63
5Rpw;bx( IE ;Ef^ z?@bEfNix4-ݻHi,V&,:%sPB^(aX|l|ʥvSXt/@2 Ge6D"'|BMF"nG l !H$tttQ;y?OO\4*βrJ0P&AnӿKePC'|un>+p , ^#\},[q$I' )T*E4l٪qݸ/c3%ڿ.B :GzV;7BU|q)~Rs"F}T6>m[iW,N'-dU_eigǨ2Nسg==uuu mV`3Mg?u K/8`XVHdʰ.MUD;GwBC頻ܫc H7&(XV\.n;xjjY 1ϲٿ{Di:M l œ2xkhYMQ;i?u;VhbڗBɟadzO ܁~ϑ$.J øΡv8MȜPPt m va]zq WĒITÁt0FJс&e=ցB"{$[لTE! H$~V+,z,ihSΟ4M
EQ(---mźuo~ÓO>I[[^!?ݓ
%,[QF"8c3vDMjxL15!hkmEQ*#N&:N&aX(++&tCC?0> ;tihݭXI/zZF_@eGG_;r0aB^F^5M#LJlC˄AP($I$O$X,< OZ,` ( iZy(!2v EQH$(n7`xD"upr-<裴7 Y
<WdڵTUU1f̘!B^Mӈu
TJ*2s
04$F(VhEQxw۸{صkBO;}C֨ƀOQEQ&mڴsϱo>Ə OEEŐ.$VTp88X
MVKzS0p8=4'9P(D$A4 >Ǔr
+ɤ$6oy͛;Q- K\k@є)SΕW^IU4-ZB/`Ǿi`&v5ta&xY0GW3%ܝ^Gv j=N|8' lz
B c0c)d Tz]Y X6JJrL477cqyftSy0
l .p6ppb.\nK 2c&wwc^9:(Ha"1 gLfteQȫ*X,mY,n톅H` I66{hc3
-IUlee\㦗rQ̝VX,Ƌ/ywQ
/ ۬YZ`sod
CfTU5]niL3 ^M^{#K3M$1{R)^1S|D"ϛ81Lh4J3%t:?+TLoW>'I"9ڵmBPYsL3*- i|w}7[4efmQte@IR֯_yhnnf ~*]2|bIy 1ExZKbho~n0uC =JRR)TUf҇|+xw~Rwt$(B"Wds+w1c|1%A ;vp]w{d2?Vt9b}g[W_8 {^}U &Ms;UEO]Ik >6$)I̘RpPgjT2 ߣ߯'aoSc뻻1̙\ם ~[n~P(C܊NwL
@mss_~Y)--eܸq&M*wײ%uG㍿!¢Y8,
ϕe|`Q 9 v>X=\A6^ du/ַ~Gcc^|;3taW)` ެiĝ;w>l۶1cPSS]e$Dn> (֨8|
= ,}g}^ˌ3yJ(ļ<+E¥Т Ú X1͛yijjţV(cbk. c{EIm\腀Q J|CߑP$ !@U ,V e-Ydj,_ /_W455E'ПR䅡^Dikkꫯ ^ &qd6֖ Nϩ7Xw#I5ٶm;G~_fnm$hl}99P\`ө*ıX{[o?455{+vR ~n_(D'Ā/z;3O?U(I _^߮GM9ivޜ<Ϧj `˶6v %:w9Xd|>3eR.cUPQ좩=jiB0}\1kz !)- Q;pwDAĉˋ]ζSwaM>3ODUR ,)UUmG;ˮq=g/)%b
aμ|Ev6`îv-$, 7ܹ}{2?I2p#C}ݴlqĉnVo~@$2AՄͷ0Q.D"tNq$)EXv?j$MرX}
!$$s4/Xdb?gj \- Mk#<-_WBP =-AL
:@O lF777G }-#!bCjgA ʭW mc"}huJd6̀
VkbͺΖ@?$I)"SYM8Mͦ Oc/ 1So/?444h9ہ;%-!3
$9 [l-dO;aڠ TMv ^x_]:
UFeV+ӉH TU%Ju!i9+P^Ht(;). ځq,1c| ز'՚6~pT$V;'?!;P7T8 l .[|
]8iծ^xh$ĥ ǨJ6j' 49qPſ~_;o: $aX
GiAfcwN&iy;s0{D옒ʂ7|;osܬj?m>qBckD wh+KYd8NN'6
Yݽ?;Ma+IX
FUen5=s¬j4!ض7@,"qh^Gc/ %yp-?ِ_nVyDa?z2!q\:eykM3ni=F4iY8T;YU]"@UUdzɲ&A}4/ԋJg6 #?F VVlh#'J T"QUpgZK/L" X>)
60}W1%\~e\oP;v
b$R*R2e>GND"&'d6V u!^y}WD6̙M(g
vƾ(ф팭.b
YI S4?7˫Rh(pظcЧI\ &L5\}UTU4MKwi4Qb`ز#국98p(1#rBJш'U)I݊ii??l۾ tYi~
>p_h@
}_or8qbƔfA0=ݣv [U !NF*)YavZq;1yin[ MD+z{8H#0'+_|E֮]Kuu5Gkwނ`D{PRdXޮ7{mwΝ;Bl@Cכ &8 l njDƴƍ7{7l )G-[ |GRo[TwH&vuľ'NXb_&J1i$|c:z:e_}U2~ ]
$IL\JyB2?2еGDP!pW(Ft"7!&ٳ^`ӦM5QFM>ih9R ʜYx,Ɂӧ?g?[nEӴρ 2m[ #T*5iݺu]d%%%C~RvpYBPSUČC2;v=mݖ){a**o([| }b|\bQ5 9UT
YhooG [o婧2d~/o0BCCCy =4 b.-f[d%JĶBƌ1wN!겙L&:e~2f
#?ZݡMӴ;v(yپ};cǎ:*S䱳!L2e]!x ,:~!h'`i~ׯGӴ=
PaG!3dWZz L4 ?yԢ";N4B\. IU]] ˗/;:x2p
# < bz[oi$ JKx6ZZ$w~!> F1a|IN뫃`zߟ':::oq
G!: Nofɒ%9 okQFF!6Z_VTz˗/A}ه !!.[SRRe]u]ٳsɤJ w% W4
^[-tXp3iB cFyoO} \.śo)E7ﲆ(^zp}݀n{G00 o6m7-[[oUTUUmDo:%ߋ=2p8o(N*^|hnn˗/ӧO7kL; Nob'|xꩧD47?{E,Ƚ#8G жC,]TK"LdRNuW"G0 u(--^{Xv!ɻ~zq2{F0# p,( &N(No߾(.1ydAv6 K= "3.4") withAutoprint else force)(\{ # examplesIf}
r_release()
\dontshow{\}) # examplesIf}
}
rversions/man/r_release_macos.Rd 0000644 0001762 0000144 00000001656 14220353343 016500 0 ustar ligges users % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/macos.R
\name{r_release_macos}
\alias{r_release_macos}
\title{Latest R release with a macOS installer available for download}
\usage{
r_release_macos()
}
\value{
A one row data frame, with columns \sQuote{version},
\sQuote{date}, \sQuote{URL} and \sQuote{nickname}.
}
\description{
\code{\link[=r_release]{r_release()}} works based on the SVN tags in the main R source code
repository. However, an SVN tag does not mean that the same version
is available for download. \code{r_release_macos} returns the latest
version for which a macOS installer is available.
}
\examples{
\dontshow{if (rversions:::is_online()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
r_release()
r_release_macos()
\dontshow{\}) # examplesIf}
}
\seealso{
Other R downloads:
\code{\link{r_release_tarball}()},
\code{\link{r_release_win}()}
}
\concept{R downloads}
rversions/man/rversions-package.Rd 0000644 0001762 0000144 00000002070 14303627416 016776 0 ustar ligges users % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/rversions-package.R
\docType{package}
\name{rversions-package}
\alias{rversions}
\alias{rversions-package}
\title{rversions: Query 'R' Versions, Including 'r-release' and 'r-oldrel'}
\description{
\if{html}{\figure{logo.png}{options: style='float: right' alt='logo' width='120'}}
Query the main 'R' 'SVN' repository to find the versions 'r-release' and 'r-oldrel' refer to, and also all previous 'R' versions and their release dates.
}
\details{
The R version numbers and dates are extracted from the
main R SVN repository at \url{https://svn.r-project.org/R/}.
}
\seealso{
Useful links:
\itemize{
\item \url{https://github.com/r-hub/rversions}
\item \url{https://r-hub.github.io/rversions/}
\item Report bugs at \url{https://github.com/r-hub/rversions/issues}
}
}
\author{
\strong{Maintainer}: Gábor Csárdi \email{csardi.gabor@gmail.com}
Other contributors:
\itemize{
\item Jeroen Ooms \email{jeroen.ooms@stat.ucla.edu} [contributor]
\item R Consortium [funder]
}
}
\keyword{internal}
rversions/man/r_oldrel.Rd 0000644 0001762 0000144 00000001246 14220353343 015152 0 ustar ligges users % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/rversions.R
\name{r_oldrel}
\alias{r_oldrel}
\title{Version number of R-oldrel}
\usage{
r_oldrel(dots = TRUE)
}
\arguments{
\item{dots}{Whether to use dots instead of dashes in the version
number.}
}
\value{
A one row data frame, with columns \sQuote{version},
\sQuote{date} and \sQuote{nickname}.
}
\description{
R-oldrel is the latest version of the previous minor version.
We extract version numbers from the R SVN repository tags.
}
\examples{
\dontshow{if (rversions:::is_online()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
r_oldrel()
\dontshow{\}) # examplesIf}
}
rversions/DESCRIPTION 0000644 0001762 0000144 00000002224 14303634052 014012 0 ustar ligges users Package: rversions
Title: Query 'R' Versions, Including 'r-release' and 'r-oldrel'
Version: 2.1.2
Authors@R:
c(person(given = "Gábor",
family = "Csárdi",
role = c("aut", "cre"),
email = "csardi.gabor@gmail.com"),
person(given = "Jeroen",
family = "Ooms",
role = "ctb",
email = "jeroen.ooms@stat.ucla.edu"),
person(given = "R Consortium",
role = "fnd"))
Description: Query the main 'R' 'SVN' repository to find the
versions 'r-release' and 'r-oldrel' refer to, and also all previous
'R' versions and their release dates.
License: MIT + file LICENSE
URL: https://github.com/r-hub/rversions,
https://r-hub.github.io/rversions/
BugReports: https://github.com/r-hub/rversions/issues
Imports: curl, utils, xml2 (>= 1.0.0)
Suggests: covr, mockery, testthat
Encoding: UTF-8
RoxygenNote: 7.2.1.9000
NeedsCompilation: no
Packaged: 2022-08-31 09:59:51 UTC; gaborcsardi
Author: Gábor Csárdi [aut, cre],
Jeroen Ooms [ctb],
R Consortium [fnd]
Maintainer: Gábor Csárdi
Repository: CRAN
Date/Publication: 2022-08-31 10:30:02 UTC
rversions/tests/ 0000755 0001762 0000144 00000000000 14220353343 013445 5 ustar ligges users rversions/tests/testthat/ 0000755 0001762 0000144 00000000000 14303634052 015306 5 ustar ligges users rversions/tests/testthat/test-rversions.R 0000644 0001762 0000144 00000002177 14220353343 020446 0 ustar ligges users context("rversions")
RE_DASH <- "^[0-9]+-[0-9]+(-[0-9]+)?$"
RE_DOT <- "^[0-9]+\\.[0-9]+(\\.[0-9]+)?$"
test_that("versions", {
d <- r_versions()
expect_is(d, "data.frame")
expect_equal(names(d), c("version", "date", "nickname"))
expect_is(d$version, "character")
expect_is(d$date, "POSIXt")
})
test_that("dots", {
expect_match(tail(r_versions(FALSE)$version, 1), RE_DASH)
expect_match(tail(r_versions(TRUE)$version, 1), RE_DOT)
expect_equal(gsub("-", ".", r_versions(FALSE)$version),
r_versions(TRUE)$version)
})
test_that("r_release respects dots", {
expect_match(r_release(TRUE)$version, RE_DOT)
expect_match(r_release(FALSE)$version, RE_DASH)
})
test_that("r_oldrel respects dots", {
expect_match(r_oldrel(TRUE)$version, RE_DOT)
expect_match(r_oldrel(FALSE)$version, RE_DASH)
})
test_that("on-demand nickname update", {
d <- r_versions()
nicks <- cached_nicks()
## We add foobar to make sure that mocking is in place
nicks[length(nicks) - 3] <- "foobar"
d$nickname[length(nicks) - 3] <- "foobar"
mockery::stub(r_versions, "cached_nicks", head(nicks, -2))
expect_equal(d, r_versions())
})
rversions/tests/testthat.R 0000644 0001762 0000144 00000000144 14220353343 015427 0 ustar ligges users library(testthat)
library(rversions)
if (Sys.getenv("NOT_CRAN") == "true") test_check("rversions")
rversions/R/ 0000755 0001762 0000144 00000000000 14220353343 012504 5 ustar ligges users rversions/R/nicks.R 0000644 0001762 0000144 00000007371 14220353343 013746 0 ustar ligges users
cached_nicks <- function() {
c("0.60" = NA, "0.61" = NA, "0.61.1" = NA,
"0.61.2" = NA, "0.61.3" = NA, "0.62" = NA,
"0.62.1" = NA, "0.62.2" = NA, "0.62.3" = NA,
"0.62.4" = NA, "0.63" = NA, "0.63.1" = NA,
"0.63.2" = NA, "0.63.3" = NA, "0.64" = NA,
"0.64.1" = NA, "0.64.2" = NA, "0.65" = NA,
"0.65.1" = NA, "0.90" = NA, "0.90.1" = NA,
"0.99" = NA, "1.0" = NA, "1.0.1" = NA, "1.1" = NA,
"1.1.1" = NA, "1.2" = NA, "1.2.1" = NA, "1.2.2" = NA,
"1.2.3" = NA, "1.3" = NA, "1.3.1" = NA, "1.4" = NA,
"1.4.1" = NA, "1.5.0" = NA, "1.5.1" = NA,
"1.6.0" = NA, "1.6.1" = NA, "1.6.2" = NA,
"1.7.0" = NA, "1.7.1" = NA, "1.8.0" = NA,
"1.8.1" = NA, "1.9.0" = NA, "1.9.1" = NA,
"2.0.0" = NA, "2.0.1" = NA, "2.1.0" = NA,
"2.1.1" = NA, "2.2.0" = NA, "2.2.1" = NA,
"2.3.0" = NA, "2.3.1" = NA, "2.4.0" = NA,
"2.4.1" = NA, "2.5.0" = NA, "2.5.1" = NA,
"2.6.0" = NA, "2.6.1" = NA, "2.6.2" = NA,
"2.7.0" = NA, "2.7.1" = NA, "2.7.2" = NA,
"2.8.0" = NA, "2.8.1" = NA, "2.9.0" = NA,
"2.9.1" = NA, "2.9.2" = NA, "2.10.0" = NA,
"2.10.1" = NA, "2.11.0" = NA, "2.11.1" = NA,
"2.12.0" = NA, "2.12.1" = NA, "2.12.2" = NA,
"2.13.0" = NA, "2.13.1" = NA, "2.13.2" = NA,
"2.14.0" = "Great Pumpkin", "2.14.1" = "December Snowflakes",
"2.14.2" = "Gift-Getting Season",
"2.15.0" = "Easter Beagle", "2.15.1" = "Roasted Marshmallows",
"2.15.2" = "Trick or Treat", "2.15.3" = "Security Blanket",
"3.0.0" = "Masked Marvel", "3.0.1" = "Good Sport",
"3.0.2" = "Frisbee Sailing", "3.0.3" = "Warm Puppy",
"3.1.0" = "Spring Dance", "3.1.1" = "Sock it to Me",
"3.1.2" = "Pumpkin Helmet", "3.1.3" = "Smooth Sidewalk",
"3.2.0" = "Full of Ingredients", "3.2.1" = "World-Famous Astronaut",
"3.2.2" = "Fire Safety", "3.2.3" = "Wooden Christmas-Tree",
"3.2.4" = "Very Secure Dishes", "3.2.5" = "Very, Very Secure Dishes",
"3.3.0" = "Supposedly Educational", "3.3.1" = "Bug in Your Hair",
"3.3.2" = "Sincere Pumpkin Patch", "3.3.3" = "Another Canoe",
"3.4.0" = "You Stupid Darkness", "3.4.1" = "Single Candle",
"3.4.2" = "Short Summer", "3.4.3" = "Kite-Eating Tree",
"3.4.4" = "Someone to Lean On", "3.5.0" = "Joy in Playing",
"3.5.1" = "Feather Spray", "3.5.2" = "Eggshell Igloo",
"3.5.3" = "Great Truth", "3.6.0" = "Planting of a Tree",
"3.6.1" = "Action of the Toes", "3.6.2" = "Dark and Stormy Night",
"3.6.3" = "Holding the Windsock", "4.0.0" = "Arbor Day"
)
}
get_nicknames <- function(vers = r_versions(dots = TRUE)$version) {
dash_vers <- gsub(".", "-", vers, fixed = TRUE)
first_nick <- match("2-15-0", dash_vers)
if (is.na(first_nick)) first_nick <- 1L
urls <- sprintf(
"https://svn.r-project.org/R/tags/R-%s/VERSION-NICK",
dash_vers[first_nick:length(dash_vers)])
nicks <- fetch_all(urls)
res <- rep(NA_character_, length(dash_vers))
names(res)[first_nick:length(dash_vers)] <- urls
res[names(nicks)] <- unname(nicks)
structure(unlist(unname(res)), names = vers)
}
fetch_all <- function(urls) {
pool <- curl::new_pool(total_con = 100, host_con = 6, multiplex = TRUE)
results <- list()
lapply(urls, function(u) {
h <- curl::new_handle(url = u)
curl::multi_add(
h, pool = pool,
done = function(resp) results[[u]] <<- resp,
fail = function(err) results[[u]] <<- err)
})
curl::multi_run(pool = pool)
lapply_named(results, get_content)
}
get_content <- function(response, url) {
if (!is.list(response) || is.null(response$content)) {
stop("Failed to download ", squote(url))
}
str_trim(rawToChar(response$content))
}
lapply_named <- function(X, FUN, ...) {
mapply(FUN, X, names(X), ..., SIMPLIFY = FALSE)
}
str_trim <- function(x) {
sub("\\s$", "", sub("^\\s", "", x))
}
squote <- function(x) {
paste0("'", x, "'")
}
rversions/R/utils.R 0000644 0001762 0000144 00000000417 14220353343 013771 0 ustar ligges users
is_rcmd_check <- function() {
if (identical(Sys.getenv("NOT_CRAN"), "true")) {
FALSE
} else {
Sys.getenv("_R_CHECK_PACKAGE_NAME_", "") != ""
}
}
is_online <- function() {
if (is_rcmd_check()) return(FALSE)
tolower(Sys.getenv("R_OFFLINE")) != "true"
}
rversions/R/urls.R 0000644 0001762 0000144 00000000724 14220353343 013617 0 ustar ligges users r_svn_url <- function() {
"https://svn.r-project.org/R/tags/"
}
cran_url <- function() {
if (nzchar(Sys.getenv("R_RVERSIONS_CRAN_URL"))){
Sys.getenv("R_RVERSIONS_CRAN_URL")
} else {
"https://cran.r-project.org"
}
}
r_download_url <- function() {
paste0(cran_url(), "/src/base/R-4/")
}
r_win_download_url <- function() {
paste0(cran_url(), "/bin/windows/base/")
}
r_macos_download_url <- function() {
paste0(cran_url(), "/bin/macosx/base/")
}
rversions/R/rversions-package.R 0000644 0001762 0000144 00000000511 14220353343 016247 0 ustar ligges users #' @details The R version numbers and dates are extracted from the
#' main R SVN repository at .
#' @keywords internal
"_PACKAGE"
# The following block is used by usethis to automatically manage
# roxygen namespace tags. Modify with care!
## usethis namespace: start
## usethis namespace: end
NULL
rversions/R/macos.R 0000644 0001762 0000144 00000001263 14220353343 013733 0 ustar ligges users
#' Latest R release with a macOS installer available for download
#'
#' [r_release()] works based on the SVN tags in the main R source code
#' repository. However, an SVN tag does not mean that the same version
#' is available for download. `r_release_macos` returns the latest
#' version for which a macOS installer is available.
#'
#' @return A one row data frame, with columns \sQuote{version},
#' \sQuote{date}, \sQuote{URL} and \sQuote{nickname}.
#'
#' @family R downloads
#' @export
#' @importFrom curl new_handle handle_setopt
#' @examplesIf rversions:::is_online()
#' r_release()
#' r_release_macos()
r_release_macos <- function() {
keep_head(r_macos_download_url(), ".pkg")
}
rversions/R/keep-head.R 0000644 0001762 0000144 00000001307 14220353343 014453 0 ustar ligges users
keep_head <- function(base_url, extension) {
versions <- tail(r_versions(dots = TRUE), 3)
handle <- new_handle()
handle_setopt(handle, customrequest = "HEAD")
handle_setopt(handle, nobody = TRUE)
for (v in nrow(versions):1) {
filename <- paste0("R-", versions[v, "version"], extension)
url <- paste0(base_url, filename)
resp <- curl_fetch_memory(url, handle = handle)
if (resp$status_code == 200) {
df <- versions[v, , drop = FALSE]
df$URL <- url
othercols <- setdiff(colnames(df), c("version", "date", "URL"))
df <- df[, c("version", "date", "URL", othercols)]
return(df)
}
}
stop("Cannot find R-release version to download", call. = FALSE)
}
rversions/R/win.R 0000644 0001762 0000144 00000001263 14220353343 013426 0 ustar ligges users
#' Latest R release with a Windows installer available for download
#'
#' [r_release()] works based on the SVN tags in the main R source code
#' repository. However, an SVN tag does not mean that the same version
#' is available for download. `r_release_win` returns the latest
#' version for which a Windows installer is available.
#'
#' @return A one row data frame, with columns \sQuote{version},
#' \sQuote{date}, \sQuote{URL} and \sQuote{nickname}.
#'
#' @family R downloads
#' @export
#' @importFrom curl new_handle handle_setopt
#' @examplesIf rversions:::is_online()
#' r_release()
#' r_release_win()
r_release_win <- function() {
keep_head(r_win_download_url(), "-win.exe")
}
rversions/R/tarball.R 0000644 0001762 0000144 00000001272 14220353343 014252 0 ustar ligges users
#' Latest release for which a source tarball is available for download
#'
#' [r_release()] works based on the SVN tags in the main R source code
#' repository. However, an SVN tag does not mean that the same version
#' is available for download. `r_release_tarball` returns the latest
#' version for which a source tarball is available.
#'
#' @return A one row data frame, with columns \sQuote{version},
#' \sQuote{date}, \sQuote{URL} and \sQuote{nickname}.
#'
#' @export
#' @family R downloads
#' @importFrom curl new_handle handle_setopt
#' @examplesIf rversions:::is_online()
#' r_release()
#' r_release_tarball()
r_release_tarball <- function() {
keep_head(r_download_url(), ".tar.gz")
}
rversions/R/rversions.R 0000644 0001762 0000144 00000006261 14220353343 014666 0 ustar ligges users
#' Query R's past and present versions
#'
#' R version numbers consist of three numbers (since version 1.4.1):
#' major, minor and patch.
#'
#' We extract the version numbers from the tags in the SVN repository.
#'
#' @param dots Whether to use dots instead of dashes in the version
#' number.
#' @return A data frame with three columns: \sQuote{version},
#' \sQuote{date} and \sQuote{nickname}.
#'
#' @export
#' @importFrom curl new_handle handle_setheaders curl_fetch_memory
#' @importFrom xml2 read_xml xml_find_all xml_ns xml_find_first xml_text
#' @examplesIf rversions:::is_online()
#' r_versions()
r_versions <- function(dots = TRUE) {
df <- r_versions_fetch()
dotver <- gsub('-', '.', df$version)
if (dots) df$version <- dotver
nicks <- cached_nicks()
nonick <- setdiff(dotver, names(nicks))
if (length(nonick)) nicks <- c(nicks, get_nicknames(nonick))
df$date <- as.POSIXct(
strptime(df$date, "%Y-%m-%dT%H:%M:%S", tz = "UTC")
)
df$nickname <- rep(NA_character_, nrow(df))
df$nickname[match(names(nicks), dotver)] <- nicks
df
}
#' Version number of R-release
#'
#' The latest tag in the SVN repository (in terms of version numbers,
#' not dates).
#'
#' @inheritParams r_versions
#' @return A one row data frame, with columns \sQuote{version},
#' \sQuote{date} and \sQuote{nickname}.
#'
#' @export
#' @importFrom utils tail
#' @examplesIf rversions:::is_online()
#' r_release()
r_release <- function(dots = TRUE) {
tail(r_versions(dots), 1)
}
#' Version number of R-oldrel
#'
#' R-oldrel is the latest version of the previous minor version.
#' We extract version numbers from the R SVN repository tags.
#'
#' @inheritParams r_versions
#' @return A one row data frame, with columns \sQuote{version},
#' \sQuote{date} and \sQuote{nickname}.
#'
#' @export
#' @importFrom utils tail
#' @examplesIf rversions:::is_online()
#' r_oldrel()
r_oldrel <- function(dots = TRUE) {
versions <- r_versions(dots)
version_strs <- package_version(versions$version)
major <- version_strs$major
minor <- version_strs$minor
major_minor <- paste(major, sep = ".", minor)
latest <- tail(major_minor, 1)
tail(versions[ major_minor != latest, ], 1)
}
cache <- new.env(parent = emptyenv())
r_versions_fetch <- function() {
if (is.null(cache$versions)) {
# issue http request to svn
h <- handle_setheaders(new_handle(customrequest = "PROPFIND"), Depth="1")
req <- curl_fetch_memory(r_svn_url(), handle = h)
# extract xml nodes
doc <- read_xml(rawToChar(req$content))
prop <- xml_find_all(doc, ".//D:propstat/D:prop", xml_ns(doc))
# extract dates and tages
dates <- xml_text(xml_find_first(prop, ".//D:creationdate", xml_ns(doc)))
tags <- xml_text(xml_find_first(prop, ".//D:getetag", xml_ns(doc)))
tags <- sub("^.*/tags/R-([-0-9]+).*$", "\\1", tags)
# filter out working branches
is_release <- grepl("^[0-9]+-[0-9]+(-[0-9]+|)$", tags)
tags <- tags[is_release]
dates <- dates[is_release]
# output structure
versions <- data.frame(
stringsAsFactors = FALSE,
version = tags,
date = dates
)
df <- versions[order(package_version(tags)), ]
rownames(df) <- NULL
cache$versions <- df
}
cache$versions
}
rversions/NEWS.md 0000644 0001762 0000144 00000002070 14303630364 013403 0 ustar ligges users
# rversions 2.1.2
No user visible changes.
# rversions 2.1.1
No user visible changes.
# rversions 2.1.0
* `r_release_macos()` is now correct again for R 4.1.0.
# rversions 2.0.2
* `r_release_tarball()` now has the correct URL for R 4.x.x.
# rversions 2.0.1
* The date columns of all data.frames is now POSIXt, POSIXct, not POSIXlt, so you can convert the data.frames with `tibble::as_tibble()` directly (#20, @espinielli).
# rversions 2.0.0
## Breaking change
* `r_versions()` and all other functions now parse the date, so the date
column is a POSIXt, not a character (#13).
# rversions 1.1.0
* All function outputs now also have a column with version nickname(s).
* R versions are now cached within each R session (@richfitz, #6).
# rversions 1.0.3
* Use `xml2::xml_find_first` instead of deprecated `xml2::xml_find_one`
(Thanks to @jimhester)
# rversions 1.0.2
* Explicit import from base packages
# rversions 1.0.1
* Rewritten using `xml2` and `curl` instead of `XML` and `RCurl`
(Thanks to @jeroenooms)
# rversions 1.0.0
First released version.
rversions/MD5 0000644 0001762 0000144 00000002244 14303634052 012616 0 ustar ligges users e0da9bd97901716f17f9f3d89142015f *DESCRIPTION
5f280a0a0733885f0e433fa66e8ef4dc *LICENSE
905e31df3a91be313b0cee59828d7205 *NAMESPACE
20ef51cabba22377a88ffcf1e43c864c *NEWS.md
d9945a6edc9adc6c61734268bc1fecf2 *R/keep-head.R
45960efa428593fd8be6ecac897e60ea *R/macos.R
f7639646770a2111c423466649ddfcab *R/nicks.R
635a9479ef41a2d88c6a0596383e3932 *R/rversions-package.R
fe8284afe73661de2075ea6d7ebbd777 *R/rversions.R
cd00ebd96acdeabb6c6222f8929a15b9 *R/tarball.R
00f8802918d9ee3657619c090a9739cc *R/urls.R
89b7c76c7768ea192490b731f39be557 *R/utils.R
6d8cbe3d55caa0e97cce200bdb5f801a *R/win.R
e870337e4a804a85a4a3d2809ad353e9 *README.md
ad9e2a775fa25e5e4a81289e09e74809 *man/figures/logo.png
62ab0457c47d84a96f6e5461da43fccf *man/r_oldrel.Rd
9e9b8d4ca72fa57bd2e468ec32910568 *man/r_release.Rd
1b402c32474d7d389d60bf3f59453d9a *man/r_release_macos.Rd
a92cdcd85d72c74eef3a97e339cc532c *man/r_release_tarball.Rd
9dd7ab1030c5795fe028cd13dd7aa10b *man/r_release_win.Rd
ade59cd0eb015efd5a380a9932e8beb6 *man/r_versions.Rd
a778e70ae069c4fe7432f413e8c7fdc5 *man/rversions-package.Rd
4e9b91bf15d69fb5012a1d99167eecd8 *tests/testthat.R
b75d0a385bd6483778db8b1c13669fec *tests/testthat/test-rversions.R
