The R Project SVN R

Rev

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

Rev 44027 Rev 45446
Line 58... Line 58...
58 
{
 58 
{
59 
    int l;
 59 
    int l;
60 
    SEXP tmp;
 60 
    SEXP tmp;
61 
 
 61 
 
62 
    if (!isNull(cl)) {
 62 
    if (!isNull(cl)) {
63 
        tmp = STRING_ELT(cl, j);
 63 
	tmp = STRING_ELT(cl, j);
64 
	if(tmp == NA_STRING) l = R_print.na_width_noquote;
 64 
	if(tmp == NA_STRING) l = R_print.na_width_noquote;
65 
	else l = Rstrlen(tmp, 0);
 65 
	else l = Rstrlen(tmp, 0);
66 
	Rprintf("%*s%s", w-l, "",
 66 
	Rprintf("%*s%s", w-l, "",
67 
		EncodeString(tmp, l, 0, Rprt_adj_left));
 67 
		EncodeString(tmp, l, 0, Rprt_adj_left));
68 
    }
 68 
    }
Line 75... Line 75...
75 
{
 75 
{
76 
    int l;
 76 
    int l;
77 
    SEXP tmp;
 77 
    SEXP tmp;
78 
 
 78 
 
79 
    if (!isNull(cl)) {
 79 
    if (!isNull(cl)) {
80 
        tmp = STRING_ELT(cl, j);
 80 
	tmp = STRING_ELT(cl, j);
81 
	if(tmp == NA_STRING) l = R_print.na_width_noquote;
 81 
	if(tmp == NA_STRING) l = R_print.na_width_noquote;
82 
	else l = Rstrlen(tmp, 0);
 82 
	else l = Rstrlen(tmp, 0);
83 
	/* This does not work correctly at least on FC3
 83 
	/* This does not work correctly at least on FC3
84 
	Rprintf("%*s", R_print.gap+w,
 84 
	Rprintf("%*s", R_print.gap+w,
85 
		EncodeString(tmp, l, 0, Rprt_adj_right)); */
 85 
		EncodeString(tmp, l, 0, Rprt_adj_right)); */
86 
	Rprintf("%*s%s", R_print.gap+w-l, "",
 86 
	Rprintf("%*s%s", R_print.gap+w-l, "",
87 
	        EncodeString(tmp, l, 0, Rprt_adj_right));
 87 
		EncodeString(tmp, l, 0, Rprt_adj_right));
88 
    }
 88 
    }
89 
    else {
 89 
    else {
90 
	Rprintf("%*s[,%ld]%*s", R_print.gap, "", j+1, w-IndexWidth(j+1)-3, "");
 90 
	Rprintf("%*s[,%ld]%*s", R_print.gap, "", j+1, w-IndexWidth(j+1)-3, "");
91 
    }
 91 
    }
92 
}
 92 
}
Line 95... Line 95...
95 
{
 95 
{
96 
    int l;
 96 
    int l;
97 
    SEXP tmp;
 97 
    SEXP tmp;
98 
 
 98 
 
99 
    if (!isNull(cl)) {
 99 
    if (!isNull(cl)) {
100 
        tmp= STRING_ELT(cl, j);
 100 
	tmp= STRING_ELT(cl, j);
101 
	if(tmp == NA_STRING) l = R_print.na_width_noquote;
 101 
	if(tmp == NA_STRING) l = R_print.na_width_noquote;
102 
	else l = Rstrlen(tmp, 0);
 102 
	else l = Rstrlen(tmp, 0);
103 
	Rprintf("%*s%s%*s", R_print.gap, "",
 103 
	Rprintf("%*s%s%*s", R_print.gap, "",
104 
		EncodeString(tmp, l, 0, Rprt_adj_left), w-l, "");
 104 
		EncodeString(tmp, l, 0, Rprt_adj_left), w-l, "");
105 
    }
 105 
    }
Line 112... Line 112...
112 
{
 112 
{
113 
    int l;
 113 
    int l;
114 
    SEXP tmp;
 114 
    SEXP tmp;
115 
 
 115 
 
116 
    if (!isNull(rl)) {
 116 
    if (!isNull(rl)) {
117 
        tmp= STRING_ELT(rl, i);
 117 
	tmp= STRING_ELT(rl, i);
118 
	if(tmp == NA_STRING) l = R_print.na_width_noquote;
 118 
	if(tmp == NA_STRING) l = R_print.na_width_noquote;
119 
	else l = Rstrlen(tmp, 0);
 119 
	else l = Rstrlen(tmp, 0);
120 
	Rprintf("\n%*s%s%*s", lbloff, "",
 120 
	Rprintf("\n%*s%s%*s", lbloff, "",
121 
		EncodeString(tmp, l, 0, Rprt_adj_left),
 121 
		EncodeString(tmp, l, 0, Rprt_adj_left),
122 
		rlabw-l-lbloff, "");
 122 
		rlabw-l-lbloff, "");