[Rd] is.na(valid_date) too often true on SGI MIPS (PR#6814)

[George N. White III]

On Fri, 23 Apr 2004, Prof Brian Ripley wrote:

> I'm sorry, but this is completely unreproducible, and the second you say
> is true you quote as false.

Not sure what you mean -- are you saying "make check" passes on
other Irix systems?

> d is a list, so can you tell us unclass(d) in both cases?

Sure -- they look OK to me:
> d<-strptime("1910/1/1", "%Y/%m/%d")
> unclass(d)
$sec
[1] 0
$min
[1] 0
$hour
[1] 0
$mday
[1] 1
$mon
[1] 0
$year
[1] 10
$wday
[1] 6
$yday
[1] 0
$isdst
[1] -1
> d<-strptime("1970/1/1", "%Y/%m/%d")
> unclass(d)
$sec
[1] 0
$min
[1] 0
$hour
[1] 0
$mday
[1] 1
$mon
[1] 0
$year
[1] 70
$wday
[1] 4
$yday
[1] 0
$isdst
[1] 0

> Also, I cannot see those examples anywhere in the R sources so can you
> please show the actual output you got.

My examples are based on as.POSIXlt from datetime.R.

Here are the relevant sections of the output from the tests (if I
comment out these sections in reg-tests-1.R and base-Ex.R then
"make check" runs fine):

$ cd ~/install/R/R-1.9.0/tests
gwhite at montigo:/user/gwhite/install/R/R-1.9.0/tests
$ gmake reg-tests-1.Rout
running code in 'reg-tests-1.R' ...gmake: *** [reg-tests-1.Rout] Error 1
$ tail -20 reg-tests-1.Rout.fail
> (t1 <- strptime(c("6. Aug. 1930", "3. Nov. 1925", "28. Mar. 1959",
+                  NA, paste(1:29," Feb. 1960", sep=".")),
+                format = "%d. %b. %Y"))
 [1] "1930-08-06" "1925-11-03" "1959-03-28" NA           "1960-02-01"
 [6] "1960-02-02" "1960-02-03" "1960-02-04" "1960-02-05" "1960-02-06"
[11] "1960-02-07" "1960-02-08" "1960-02-09" "1960-02-10" "1960-02-11"
[16] "1960-02-12" "1960-02-13" "1960-02-14" "1960-02-15" "1960-02-16"
[21] "1960-02-17" "1960-02-18" "1960-02-19" "1960-02-20" "1960-02-21"
[26] "1960-02-22" "1960-02-23" "1960-02-24" "1960-02-25" "1960-02-26"
[31] "1960-02-27" "1960-02-28" "1960-02-29"
> stopifnot(6 == length(print(s1 <- summary(t1))),
+           s1== summary(as.POSIXct(t1)),
+           6 == length(print(format(as.Date(s1)))) )
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.
     NA      NA      NA      NA      NA      NA
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.
     NA      NA      NA      NA      NA      NA
Error in if (!(is.logical(r <- eval(ll[[i]])) && all(r))) stop(paste(deparse(mc[[i +  :
        missing value where TRUE/FALSE needed
Execution halted
$ cd Examples
$ gmake base-Ex.Rout
running code in 'base-Ex.R' ...
Execution halted
$ tail -4 base-Ex.Rout.fail
> ## first days of years
> seq(as.Date("1910/1/1"), as.Date("1999/1/1"), "years")
Error in fromchar(x) : character string is not in a standard unambiguous format
Execution halted

> On Fri, 23 Apr 2004 aa056 at chebucto.ns.ca wrote:
>
> > Full_Name: George N. White III
> > Version: 1.9.0
> > OS: Irix 6.5.21m
> > Submission from: (NULL) (142.176.61.212)
> >
> >
> > R-1.9.0 built using the SGI MIPSPro compilers
> >
> >   Installation directory:    /usr/local
> >
> >   C compiler:                c99 -OPT:IEEE_NaN_inf=ON -mips4 -n32 -O3
> > -OPT:Olimit_opt=on
> >   C++ compiler:              CC -OPT:IEEE_NaN_inf=ON -mips4 -n32 -O3
> > -OPT:Olimit_opt=on -LANG:std
> >   Fortran compiler:          f90 -OPT:IEEE_NaN_inf=ON -mips4 -n32 -O3
> > -OPT:Olimit_opt=on
> >
> >   Interfaces supported:      X11, gnome, tcltk
> >   External libraries:        readline, BLAS(generic), LAPACK(generic)
> >   Additional capabilities:   PNG, JPEG
> >   Options enabled:           shared library, R profiling
> >
> >   Recommended packages:      yes
> >
> > "make check" fails in 2 places due to is.na(..) returning TRUE for valid dates:
> >
> > > d<-strptime("1910/1/1", "%Y/%m/%d")
> > > is.na(d)
> > [1] TRUE
> > > d
> > [1] "1910-01-01"
> >
> > > d<-strptime("1970/1/1", "%Y/%m/%d")
> > > is.na(d)
> > [1] FALSE
> > > d
> > [1] "1970-01-01"
> >
> > Incidentally:
> > > NA+NaN;NaN+NA
> > [1] NA
> > [1] NaN
> >
> > ______________________________________________
> > R-devel at stat.math.ethz.ch mailing list
> > https://www.stat.math.ethz.ch/mailman/listinfo/r-devel
> >
> >
>
>

--
George N. White III  <aa056 at chebucto.ns.ca>
  Head of St. Margarets Bay, Nova Scotia, Canada