[Rd] segfault in approx() (PR#6809)

[Peter Dalgaard]

kjetil at entelnet.bo writes:

> This is R1.9.0, windows XP
> 
> I run across the following:
> 
> It is admittedly silly, but it shouldn't segfault:
> 
> test <- list(y=1:100, x=rep(NaN, 100))
> approx(test, xout=rep(NaN, 10))
> 
> Bombs!

Yup. Sanity check needed on entrance to approx1. I suppose that

  if (!n) return NaN;

should do the trick.


-- 
   O__  ---- Peter Dalgaard             Blegdamsvej 3  
  c/ /'_ --- Dept. of Biostatistics     2200 Cph. N   
 (*) \(*) -- University of Copenhagen   Denmark      Ph: (+45) 35327918
~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk)             FAX: (+45) 35327907