The R Project SVN R

Rev

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

Rev 45667 Rev 46375
Line 224... Line 224...
224 
    if (!isString(method)|| LENGTH(method) != 1)
 224 
    if (!isString(method)|| LENGTH(method) != 1)
225 
	error(_("invalid '%s' argument"), "method");
 225 
	error(_("invalid '%s' argument"), "method");
226 
    tn = CHAR(STRING_ELT(method, 0));
 226 
    tn = CHAR(STRING_ELT(method, 0));
227 
    args = CDR(args); options = CAR(args);
 227 
    args = CDR(args); options = CAR(args);
228 
    PROTECT(OS->R_fcall = lang2(fn, R_NilValue));
 228 
    PROTECT(OS->R_fcall = lang2(fn, R_NilValue));
- 
 
 229 
    /* I don't think duplication is needed here */
229 
    PROTECT(par = coerceVector(duplicate(par), REALSXP));
 230 
    PROTECT(par = coerceVector(duplicate(par), REALSXP));
230 
    npar = LENGTH(par);
 231 
    npar = LENGTH(par);
231 
    dpar = vect(npar);
 232 
    dpar = vect(npar);
232 
    opar = vect(npar);
 233 
    opar = vect(npar);
233 
    trace = asInteger(getListElement(options, "trace"));
 234 
    trace = asInteger(getListElement(options, "trace"));