The R Project SVN R

Rev

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

Rev 32380 Rev 32871
Line 461... Line 461...
461 
 
 461 
 
462 
    r = INTEGER(dim)[0];
 462 
    r = INTEGER(dim)[0];
463 
    c = INTEGER(dim)[1];
 463 
    c = INTEGER(dim)[1];
464 
    /* PR#850 */
 464 
    /* PR#850 */
465 
    if ((rl!=R_NilValue) && (r>length(rl)))
 465 
    if ((rl!=R_NilValue) && (r>length(rl)))
466 
	error("too few row labels");
 466 
	error(_("too few row labels"));
467 
    if ((cl!=R_NilValue) && (c>length(cl)))
 467 
    if ((cl!=R_NilValue) && (c>length(cl)))
468 
	error("too few column labels");
 468 
	error(_("too few column labels"));
469 
    if (r == 0 && c == 0) {
 469 
    if (r == 0 && c == 0) {
470 
	Rprintf("<0 x 0 matrix>\n");
 470 
	Rprintf("<0 x 0 matrix>\n");
471 
	return;
 471 
	return;
472 
    }
 472 
    }
473 
    switch (TYPEOF(x)) {
 473 
    switch (TYPEOF(x)) {