From 0bde2bc9ffef82cdb9722c3c3f2baaad17500ae8 Mon Sep 17 00:00:00 2001 From: jangorecki Date: Sun, 9 May 2021 14:10:11 +0200 Subject: [PATCH] unit test for closed issue #4873 --- inst/tests/tests.Rraw | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw index 9c06b8b239..d691ed8f76 100644 --- a/inst/tests/tests.Rraw +++ b/inst/tests/tests.Rraw @@ -17530,4 +17530,10 @@ test(2184.2, dt2[1, suma], 2) dt2 <- dt[2,.(suma=sum(a)), keyby=.(b=get("b"))] test(2184.3, dt2[1, suma], 2) dt2 <- dt[2,.(suma=sum(a)), keyby=.(b=get("b"),c)] -test(2184.4, dt2[1, suma], 2) \ No newline at end of file +test(2184.4, dt2[1, suma], 2) +# #4873 +IDT = as.data.table(iris) +vr = "Species" +IDT[, virginca := get(vr) == "virginica"] +ans = data.table(round = c(3, 3, 3, 2, 2, 4, 2, 4), k = c(6, 7, 8, 5, 7, 7, 6, 8), kar = structure(c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("setosa", "versicolor", "virginica"), class = "factor"), N = c(24L, 14L, 4L, 1L, 1L, 1L, 3L, 2L)) +test(2184.5, IDT[(virginca), .N, by = .(round(Sepal.Width), k = round(Sepal.Length), kar = get(vr))] , ans)