Skip to content

Commit 8a22c96

Browse files
authored
Merge pull request #1 from Siddd-hrr/Siddd-hrr-patch-1
Update seq.c
2 parents fb206ac + a37375c commit 8a22c96

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

src/main/seq.c

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -745,7 +745,9 @@ attribute_hidden SEXP do_rep(SEXP call, SEXP op, SEXP args, SEXP rho)
745745
len = lx * it * each;
746746
} else { // nt != 1
747747
if(nt != (double) lx * each)
748-
errorcall(call, _("invalid '%s' argument"), "times");
748+
errorcall(call,_("invalid '%s' argument: length of time = %d, expected = %d from (length of x = %d , each = %d) "),"times",nt,(int)((double) lx * each),(int) lx , (int) each );
749+
750+
749751
if (TYPEOF(times) == REALSXP)
750752
for(i = 0; i < nt; i++) {
751753
double rt = REAL(times)[i];

0 commit comments

Comments
 (0)