The R Project SVN R

Rev

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

Rev 85114 Rev 85146
Line 93... Line 93...
93 
	case EXPRSXP:
 93 
	case EXPRSXP:
94 
	case VECSXP:
 94 
	case VECSXP:
95 
	    break;
 95 
	    break;
96 
	default:
 96 
	default:
97 
	    error(_("'data' must be of a vector type, was '%s'"),
 97 
	    error(_("'data' must be of a vector type, was '%s'"),
98 
		type2char(TYPEOF(vals)));
 98 
		R_typeToChar(vals));
99 
    }
 99 
    }
100 
    lendat = XLENGTH(vals);
 100 
    lendat = XLENGTH(vals);
101 
    snr = CAR(args); args = CDR(args);
 101 
    snr = CAR(args); args = CDR(args);
102 
    snc = CAR(args); args = CDR(args);
 102 
    snc = CAR(args); args = CDR(args);
103 
    byrow = asLogical(CAR(args)); args = CDR(args);
 103 
    byrow = asLogical(CAR(args)); args = CDR(args);
Line 2065... Line 2065...
2065 
	case EXPRSXP:
 2065 
	case EXPRSXP:
2066 
	case VECSXP:
 2066 
	case VECSXP:
2067 
	    break;
 2067 
	    break;
2068 
	default:
 2068 
	default:
2069 
	    error(_("'data' must be of a vector type, was '%s'"),
 2069 
	    error(_("'data' must be of a vector type, was '%s'"),
2070 
		type2char(TYPEOF(vals)));
 2070 
		R_typeToChar(vals));
2071 
    }
 2071 
    }
2072 
    lendat = XLENGTH(vals);
 2072 
    lendat = XLENGTH(vals);
2073 
    dims = CADR(args);
 2073 
    dims = CADR(args);
2074 
    dimnames = CADDR(args);
 2074 
    dimnames = CADDR(args);
2075 
    PROTECT(dims = coerceVector(dims, INTSXP));
 2075 
    PROTECT(dims = coerceVector(dims, INTSXP));