From 46d495150fe484fddfff00a52d97d61cc6d62c76 Mon Sep 17 00:00:00 2001 From: jangorecki Date: Thu, 2 Apr 2020 20:26:28 +0100 Subject: [PATCH] improve error message for #4214 --- src/forder.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/forder.c b/src/forder.c index ea0be76d04..c948066982 100644 --- a/src/forder.c +++ b/src/forder.c @@ -460,7 +460,7 @@ SEXP forder(SEXP DT, SEXP by, SEXP retGrpArg, SEXP sortGroupsArg, SEXP ascArg, S if (by_i < 1 || by_i > length(DT)) STOP(_("internal error: 'by' value %d out of range [1,%d]"), by_i, length(DT)); // # nocov # R forderv already catch that using C colnamesInt if ( nrow != length(VECTOR_ELT(DT, by_i-1)) ) - STOP(_("Column %d is length %d which differs from length of column 1 (%d)\n"), INTEGER(by)[i], length(VECTOR_ELT(DT, INTEGER(by)[i]-1)), nrow); + STOP(_("Column %d is length %d which differs from length of column 1 (%d), are you attempting to order by a list column?\n"), INTEGER(by)[i], length(VECTOR_ELT(DT, INTEGER(by)[i]-1)), nrow); if (TYPEOF(VECTOR_ELT(DT, by_i-1)) == CPLXSXP) n_cplx++; } if (!isLogical(retGrpArg) || LENGTH(retGrpArg)!=1 || INTEGER(retGrpArg)[0]==NA_LOGICAL)