The R Project SVN R

Rev

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

Rev 61791 Rev 63096
Line 165... Line 165...
165 
 
 165 
 
166 
    for (R_xlen_t i = 0; i < n; i++) {
 166 
    for (R_xlen_t i = 0; i < n; i++) {
167 
	if (i > 0 && width + w > R_print.width) {
 167 
	if (i > 0 && width + w > R_print.width) {
168 
	    DO_newline;
 168 
	    DO_newline;
169 
	}
 169 
	}
170 
	Rprintf("%*s%s", R_print.gap, "", EncodeRaw(x[i]));
 170 
	Rprintf("%*s%s", R_print.gap, "", EncodeRaw(x[i], ""));
171 
	width += w;
 171 
	width += w;
172 
    }
 172 
    }
173 
    Rprintf("\n");
 173 
    Rprintf("\n");
174 
}
 174 
}
175 
 
 175 
 
Line 309... Line 309...
309 
			   EncodeString(x[k], w, quote, Rprt_adj_right),
 309 
			   EncodeString(x[k], w, quote, Rprt_adj_right),
310 
			   R_print.gap, ""))
 310 
			   R_print.gap, ""))
311 
 
 311 
 
312 
static void printNamedRawVector(Rbyte * x, int n, SEXP * names)
 312 
static void printNamedRawVector(Rbyte * x, int n, SEXP * names)
313 
    PRINT_N_VECTOR(formatRaw(x, n, &w),
 313 
    PRINT_N_VECTOR(formatRaw(x, n, &w),
314 
		   Rprintf("%s%*s", EncodeRaw(x[k]), R_print.gap,""))
 314 
		   Rprintf("%s%*s", EncodeRaw(x[k], ""), R_print.gap,""))
315 
 
 315 
 
316 
attribute_hidden
 316 
attribute_hidden
317 
void printNamedVector(SEXP x, SEXP names, int quote, const char *title)
 317 
void printNamedVector(SEXP x, SEXP names, int quote, const char *title)
318 
{
 318 
{
319 
    int n;
 319 
    int n;