The R Project SVN R

Rev

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

Rev 69366 Rev 70352
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996	Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996	Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 2000--2014	The R Core Team
 4 
 *  Copyright (C) 2000--2016	The R Core Team
5 
 *  Copyright (C) 2001--2012	The R Foundation
 5 
 *  Copyright (C) 2001--2012	The R Foundation
6 
 *
 6 
 *
7 
 *  This program is free software; you can redistribute it and/or modify
 7 
 *  This program is free software; you can redistribute it and/or modify
8 
 *  it under the terms of the GNU General Public License as published by
 8 
 *  it under the terms of the GNU General Public License as published by
9 
 *  the Free Software Foundation; either version 2 of the License, or
 9 
 *  the Free Software Foundation; either version 2 of the License, or
Line 269... Line 269...
269 
 
 269 
 
270 
    _PRINT_MATRIX_( , STD_ColumnLabels,
 270 
    _PRINT_MATRIX_( , STD_ColumnLabels,
271 
		   if (ISNA(x[i + j * r].r) || ISNA(x[i + j * r].i))
 271 
		   if (ISNA(x[i + j * r].r) || ISNA(x[i + j * r].i))
272 
		       Rprintf("%s", EncodeReal0(NA_REAL, w[j], 0, 0, OutDec));
 272 
		       Rprintf("%s", EncodeReal0(NA_REAL, w[j], 0, 0, OutDec));
273 
		   else
 273 
		   else
- 
 
 274 
		       /* Note that the label printing may modify w[j], so wr[j] is not
- 
 
 275 
		          necessarily still valid, and we use w[j] - wi[j] - 2  */
274 
		       Rprintf("%s",
 276 
		       Rprintf("%s",
275 
			       EncodeComplex(x[i + j * r],
 277 
			       EncodeComplex(x[i + j * r],
276 
					     wr[j] + R_print.gap, dr[j], er[j],
 278 
					     w[j] - wi[j] - 2, dr[j], er[j],
277 
					     wi[j], di[j], ei[j], OutDec)) )
 279 
					     wi[j], di[j], ei[j], OutDec)) )
278 
}
 280 
}
279 
 
 281 
 
280 
static void printStringMatrix(SEXP sx, int offset, int r_pr, int r, int c,
 282 
static void printStringMatrix(SEXP sx, int offset, int r_pr, int r, int c,
281 
			      int quote, int right, SEXP rl, SEXP cl,
 283 
			      int quote, int right, SEXP rl, SEXP cl,