From a37375c11f181ff5901e00a3c1d1ce90b3a2ade3 Mon Sep 17 00:00:00 2001 From: Siddd-hrr Date: Sat, 2 Aug 2025 09:35:29 +0530 Subject: [PATCH] Update seq.c --- src/main/seq.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/main/seq.c b/src/main/seq.c index 1ddd3c6cc7a..61abc30fcf5 100644 --- a/src/main/seq.c +++ b/src/main/seq.c @@ -745,7 +745,9 @@ attribute_hidden SEXP do_rep(SEXP call, SEXP op, SEXP args, SEXP rho) len = lx * it * each; } else { // nt != 1 if(nt != (double) lx * each) - errorcall(call, _("invalid '%s' argument"), "times"); + 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 ); + + if (TYPEOF(times) == REALSXP) for(i = 0; i < nt; i++) { double rt = REAL(times)[i];