The R Project SVN R

Rev

Rev 89225 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89225 Rev 89242
Line 1030... Line 1030...
1030 
    SEXP sx = CAR(args), ans;
 1030 
    SEXP sx = CAR(args), ans;
1031 
    int nprot = 1;
 1031 
    int nprot = 1;
1032 
    R_xlen_t i, n, indx = -1;
 1032 
    R_xlen_t i, n, indx = -1;
1033 
 
 1033 
 
1034 
    checkArity(op, args);
 1034 
    checkArity(op, args);
1035 
    if (OBJECT(sx)) {
 1035 
    if (OBJECT(sx) && !isDataFrame(sx)) {
1036 
	SEXP call = PROTECT(lang2(install("xtfrm"), sx)); nprot++;
 1036 
	SEXP call = PROTECT(lang2(install("xtfrm"), sx)); nprot++;
1037 
	PROTECT(sx = eval(call, rho)); nprot++;
 1037 
	PROTECT(sx = eval(call, rho)); nprot++;
1038 
    } else
 1038 
    } else
1039 
    if (!isNumeric(sx)) {
 1039 
    if (!isNumeric(sx)) {
1040 
	PROTECT(sx = coerceVector(CAR(args), REALSXP)); nprot++;
 1040 
	PROTECT(sx = coerceVector(CAR(args), REALSXP)); nprot++;