regression test

aitap · aitap · commit 654247ac325a · 2025-12-05T18:47:43.000+03:00
diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw
@@ -21865,3 +21865,8 @@ text = paste0(
  strrep("a", 500), "\n", "a"
 )
 test(2346, data.table::fread(text = text), data.table(mary = rep("mary", 99), had = "had", a = "a", little = "little", lamb = "lamb"), warning = "First discarded non-empty line")
+
+# With 'i' containing NA and no GForce, columns for missing groups weren't fully missing, #7442
+DT = data.table(a="a", grp=1L)
+i = c(1, 1, 1, NA, NA)
+test(2347, DT[i, .(result = all(is.na(grp) == is.na(a))), by = grp][,all(result)], options = list(datatable.optimize = 0))

Original file line number	Diff line number	Diff line change
`@@ -21865,3 +21865,8 @@ text = paste0(`
`21865`	`21865`	`strrep("a", 500), "\n", "a"`
`21866`	`21866`	`)`
`21867`	`21867`	`test(2346, data.table::fread(text = text), data.table(mary = rep("mary", 99), had = "had", a = "a", little = "little", lamb = "lamb"), warning = "First discarded non-empty line")`
	`21868`	`+`
	`21869`	`+# With 'i' containing NA and no GForce, columns for missing groups weren't fully missing, #7442`
	`21870`	`+DT = data.table(a="a", grp=1L)`
	`21871`	`+i = c(1, 1, 1, NA, NA)`
	`21872`	`+test(2347, DT[i, .(result = all(is.na(grp) == is.na(a))), by = grp][,all(result)], options = list(datatable.optimize = 0))`