The R Project SVN R

Rev

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

Rev 74882 Rev 75532
Line 94... Line 94...
94 
    PROTECT(X = CAR(args));
 94 
    PROTECT(X = CAR(args));
95 
    PROTECT(XX = eval(CAR(args), rho));
 95 
    PROTECT(XX = eval(CAR(args), rho));
96 
    FUN = CADR(args);  /* must be unevaluated for use in e.g. bquote */
 96 
    FUN = CADR(args);  /* must be unevaluated for use in e.g. bquote */
97 
    PROTECT(value = eval(CADDR(args), rho));
 97 
    PROTECT(value = eval(CADDR(args), rho));
98 
    if (!isVector(value)) error(_("'FUN.VALUE' must be a vector"));
 98 
    if (!isVector(value)) error(_("'FUN.VALUE' must be a vector"));
99 
    useNames = asLogical(eval(CADDDR(args), rho));
 99 
    useNames = asLogical(PROTECT(eval(CADDDR(args), rho)));
- 
 
 100 
    UNPROTECT(1);
100 
    if (useNames == NA_LOGICAL) error(_("invalid '%s' value"), "USE.NAMES");
 101 
    if (useNames == NA_LOGICAL) error(_("invalid '%s' value"), "USE.NAMES");
101 
 
 102 
 
102 
    n = xlength(XX);
 103 
    n = xlength(XX);
103 
    if (n == NA_INTEGER) error(_("invalid length"));
 104 
    if (n == NA_INTEGER) error(_("invalid length"));
104 
    Rboolean realIndx = n > INT_MAX;
 105 
    Rboolean realIndx = n > INT_MAX;