The R Project SVN R

Rev

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

Rev 29510 Rev 31569
Line 487... Line 487...
487 
	printStringMatrix(x, offset, r, c, quote, right, rl, cl, rn, cn);
 487 
	printStringMatrix(x, offset, r, c, quote, right, rl, cl, rn, cn);
488 
	break;
 488 
	break;
489 
    }
 489 
    }
490 
}
 490 
}
491 
 
 491 
 
492 
static void printArrayGeneral(SEXP x, SEXP dim, int quote, SEXP dimnames)
 492 
static void printArrayGeneral(SEXP x, SEXP dim, int quote, int right,
- 
 
 493 
                              SEXP dimnames)
493 
{
 494 
{
494 
/* == printArray(.) */
 495 
/* == printArray(.) */
495 
    SEXP dn, dnn;
 496 
    SEXP dn, dnn;
496 
    int i, j, k, l, b, nb, ndim;
 497 
    int i, j, k, l, b, nb, ndim;
497 
    int nr, nc;
 498 
    int nr, nc;
Line 561... Line 562...
561 
	    case CPLXSXP:
 562 
	    case CPLXSXP:
562 
		printComplexMatrix(x, i * b, nr, nc, dn0, dn1, rn, cn);
 563 
		printComplexMatrix(x, i * b, nr, nc, dn0, dn1, rn, cn);
563 
		break;
 564 
		break;
564 
	    case STRSXP:
 565 
	    case STRSXP:
565 
		if (quote) quote = '"';
 566 
		if (quote) quote = '"';
566 
		printStringMatrix(x, i * b, nr, nc, quote, 0, dn0, dn1, rn, cn);
 567 
		printStringMatrix(x, i * b, nr, nc, quote, right, dn0, dn1, rn, cn);
567 
		break;
 568 
		break;
568 
	    }
 569 
	    }
569 
	    Rprintf("\n");
 570 
	    Rprintf("\n");
570 
	}
 571 
	}
571 
    }
 572 
    }
572 
}
 573 
}
573 
 
 574 
 
574 
void printArray(SEXP x, SEXP dim, int quote, SEXP dimnames)
 575 
void printArray(SEXP x, SEXP dim, int quote, int right, SEXP dimnames)
575 
{
 576 
{
576 
    printArrayGeneral(x, dim, quote, dimnames);
 577 
    printArrayGeneral(x, dim, quote, right, dimnames);
577 
}
 578 
}