> Indeed. Interesting that nobody has noticed till now,
> even though that part has been world readable since at least 2008-08-25.
That was what made me a bit unsure :-).
> Note that the R source code is at
> http://svn.r-project.org/R/
> and the file in question at
> http://svn.r-pro
> Arunkumar Srinivasan
> on Thu, 8 Jan 2015 13:46:57 +0100 writes:
> Have a look at the following, taken from base::rank:
> ...
> if (!is.na(na.last) && any(nas)) {
> yy <- integer(length(x)) # <~
> storage.mode(yy) <- storage.mode(y) # <
>
Have a look at the following, taken from base::rank:
...
if (!is.na(na.last) && any(nas)) {
yy <- integer(length(x)) # <~
storage.mode(yy) <- storage.mode(y) # <
yy <- NA
NAkeep <- (na.last == "keep")
if (NAkeep || na.last) {
