The R Project SVN R

Rev

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

Rev 86902 Rev 87167
Line 376... Line 376...
376 
	break;
 376 
	break;
377 
    default:
 377 
    default:
378 
	UNIMPLEMENTED_TYPE("printMatrix", x);
 378 
	UNIMPLEMENTED_TYPE("printMatrix", x);
379 
    }
 379 
    }
380 
    if (r_pr < r || c_pr < c) {
 380 
    if (r_pr < r || c_pr < c) {
381 
	Rprintf(" [ reached getOption(\"max.print\") -- omitted");
 381 
	Rprintf(" [ reached 'max' / getOption(\"max.print\") -- omitted");
382 
	if (r_pr < r) {
 382 
	if (r_pr < r) {
383 
    	    Rprintf(ngettext(" %d row", " %d rows", r - r_pr), r - r_pr);
 383 
    	    Rprintf(ngettext(" %d row", " %d rows", r - r_pr), r - r_pr);
384 
	}
 384 
	}
385 
	if (c_pr < c) {
 385 
	if (c_pr < c) {
386 
	    if (r_pr < r) Rprintf(_(" and"));
 386 
	    if (r_pr < r) Rprintf(_(" and"));
Line 500... Line 500...
500 
	    }
 500 
	    }
501 
	    Rprintf("\n");
 501 
	    Rprintf("\n");
502 
	}
 502 
	}
503 
 
 503 
 
504 
	if(max_reached && nb_pr < nb) {
 504 
	if(max_reached && nb_pr < nb) {
505 
	    Rprintf(" [ reached getOption(\"max.print\") -- omitted");
 505 
	    Rprintf(" [ reached 'max' / getOption(\"max.print\") -- omitted");
506 
	    if(nr_last < nr) Rprintf(" %d row(s) and", nr - nr_last);
 506 
	    if(nr_last < nr) Rprintf(" %d row(s) and", nr - nr_last);
507 
	    Rprintf(" %d matrix slice(s) ]\n", nb - nb_pr);
 507 
	    Rprintf(" %d matrix slice(s) ]\n", nb - nb_pr);
508 
	}
 508 
	}
509 
    }
 509 
    }
510 
    UNPROTECT(nprotect);
 510 
    UNPROTECT(nprotect);