The R Project SVN R

Rev

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

Rev 44421 Rev 44513
Line 953... Line 953...
953 
#endif
 953 
#endif
954 
    SEXP msg1 = CADR(args), msg2 = CADDR(args);
 954 
    SEXP msg1 = CADR(args), msg2 = CADDR(args);
955 
    int n = asInteger(CAR(args));
 955 
    int n = asInteger(CAR(args));
956
956
957 
    checkArity(op, args);
 957 
    checkArity(op, args);
958 
    if(n == NA_INTEGER || n < 0) error(_("invalid 'n'"));
 958 
    if(n == NA_INTEGER || n < 0) error(_("invalid '%s' arguemnt"), "n");
959 
    if(!isString(msg1) || LENGTH(msg1) != 1)
 959 
    if(!isString(msg1) || LENGTH(msg1) != 1)
960 
	error(_("'msg1' must be a character string"));
 960 
	error(_("'msg1' must be a character string"));
961 
    if(!isString(msg2) || LENGTH(msg2) != 1)
 961 
    if(!isString(msg2) || LENGTH(msg2) != 1)
962 
	error(_("'msg2' must be a character string"));
 962 
	error(_("'msg2' must be a character string"));
963 
 
 963