The R Project SVN R

Rev

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

Rev 33387 Rev 35264
Line 219... Line 219...
219 
    args = CDR(args); fn = CAR(args);
 219 
    args = CDR(args); fn = CAR(args);
220 
    if (!isFunction(fn)) errorcall(call, _("'fn' is not a function"));
 220 
    if (!isFunction(fn)) errorcall(call, _("'fn' is not a function"));
221 
    args = CDR(args); gr = CAR(args);
 221 
    args = CDR(args); gr = CAR(args);
222 
    args = CDR(args); method = CAR(args);
 222 
    args = CDR(args); method = CAR(args);
223 
    if (!isString(method)|| LENGTH(method) != 1)
 223 
    if (!isString(method)|| LENGTH(method) != 1)
224 
	errorcall(call, _("invalid 'method' argument"));
 224 
	errorcall(call, _("invalid '%s' argument"), "method");
225 
    tn = CHAR(STRING_ELT(method, 0));
 225 
    tn = CHAR(STRING_ELT(method, 0));
226 
    args = CDR(args); options = CAR(args);
 226 
    args = CDR(args); options = CAR(args);
227 
    PROTECT(OS->R_fcall = lang2(fn, R_NilValue));
 227 
    PROTECT(OS->R_fcall = lang2(fn, R_NilValue));
228 
    PROTECT(par = coerceVector(duplicate(par), REALSXP));
 228 
    PROTECT(par = coerceVector(duplicate(par), REALSXP));
229 
    npar = LENGTH(par);
 229 
    npar = LENGTH(par);