The R Project SVN R

Rev

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

Rev 51245 Rev 51267
Line 647... Line 647...
647 
{
 647 
{
648 
    SEXP ans;
 648 
    SEXP ans;
649 
    int i, len, *p;
 649 
    int i, len, *p;
650 
 
 650 
 
651 
    checkArity(op, args);
 651 
    checkArity(op, args);
- 
 
 652 
    check1arg(args, call, "along.with");
652 
#ifdef R_291_and_less
 653 
#ifdef R_291_and_less
653 
    len = length(CAR(args));
 654 
    len = length(CAR(args));
654 
#else
 655 
#else
655 
    if(isObject(CAR(args)) &&
 656 
    if(isObject(CAR(args)) &&
656 
       DispatchOrEval(call, /* op = */ ScalarInteger(0),
 657 
       DispatchOrEval(call, /* op = */ ScalarInteger(0),
Line 671... Line 672...
671 
{
 672 
{
672 
    SEXP ans;
 673 
    SEXP ans;
673 
    int i, len, *p;
 674 
    int i, len, *p;
674 
 
 675 
 
675 
    checkArity(op, args);
 676 
    checkArity(op, args);
- 
 
 677 
    check1arg(args, call, "length.out");
676 
    len = asInteger(CAR(args));
 678 
    len = asInteger(CAR(args));
677 
    if(len == NA_INTEGER || len < 0)
 679 
    if(len == NA_INTEGER || len < 0)
678 
	errorcall(call, _("argument must be coercible to non-negative integer"));
 680 
	errorcall(call, _("argument must be coercible to non-negative integer"));
679 
    ans = allocVector(INTSXP, len);
 681 
    ans = allocVector(INTSXP, len);
680 
    p = INTEGER(ans);
 682 
    p = INTEGER(ans);