The R Project SVN R

Rev

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

Rev 27672 Rev 27797
Line 219... Line 219...
219 
{
 219 
{
220 
    if (isVector(x) || isList(x) || isLanguage(x)) {
 220 
    if (isVector(x) || isList(x) || isLanguage(x)) {
221 
	if (!isVector(s) && !isList(s))
 221 
	if (!isVector(s) && !isList(s))
222 
	    error("invalid type for names: must be vector");
 222 
	    error("invalid type for names: must be vector");
223 
	if (length(x) != length(s))
 223 
	if (length(x) != length(s))
224 
	    error("names attribute [%d] must be the same length as the vector [%d}", length(s), length(x));
 224 
	    error("names attribute [%d] must be the same length as the vector [%d]", length(s), length(x));
225 
    }
 225 
    }
226 
    else error("names applied to non-vector");
 226 
    else error("names applied to non-vector");
227 
}
 227 
}
228 
 
 228 
 
229 
 
 229