The R Project SVN R

Rev

Rev 32873 | Rev 36990 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 32873 Rev 33297
Line 83... Line 83...
83 
    Rboolean useInt;
 83 
    Rboolean useInt;
84 
 
 84 
 
85 
    n1 = length(s1);
 85 
    n1 = length(s1);
86 
    if( n1 > 1 )
 86 
    if( n1 > 1 )
87 
	warningcall(call,
87 
	warningcall(call,
88 
		    _("Numerical expression has %d elements: only the first used"), (int) n1);
 88 
		    _("numerical expression has %d elements: only the first used"), (int) n1);
89 
    n2 = length(s2);
 89 
    n2 = length(s2);
90 
    if( n2 > 1 )
 90 
    if( n2 > 1 )
91 
	warningcall(call, _("Numerical expression has %d elements: only the first used"), (int) n2);
 91 
	warningcall(call, _("numerical expression has %d elements: only the first used"), (int) n2);
92 
    n1 = asReal(s1);
 92 
    n1 = asReal(s1);
93 
    n2 = asReal(s2);
 93 
    n2 = asReal(s2);
94 
    if (ISNAN(n1) || ISNAN(n2))
 94 
    if (ISNAN(n1) || ISNAN(n2))
95 
	errorcall(call, _("NA/NaN argument"));
 95 
	errorcall(call, _("NA/NaN argument"));
96 
 
 96