fwrite call to use data.table subsetting

Mukulyadav2004 · web-flow · commit b072be59d731 · 2025-08-23T21:45:48.000+05:30
diff --git a/.ci/atime/tests.R b/.ci/atime/tests.R
@@ -317,7 +317,7 @@ test.list <- atime::atime_test_list(
       if (has_select) {
         data.table::fwrite(DT, temp_file, select = select_idx)
       } else {
-        data.table::fwrite(DT[, select_idx, with = FALSE], temp_file)
+        data.table::fwrite(data.table:::`[.data.table`(DT, , select_idx, with = FALSE), temp_file)
       }
     },
     Slow = "66cb6d2393cef30083b444346a7600a079207806",     # Parent of the first commit in the PR (https://github.com/Rdatatable/data.table/commit/66cb6d2393cef30083b444346a7600a079207806)

Original file line number	Diff line number	Diff line change
`@@ -317,7 +317,7 @@ test.list <- atime::atime_test_list(`
`317`	`317`	`if (has_select) {`
`318`	`318`	`data.table::fwrite(DT, temp_file, select = select_idx)`
`319`	`319`	`} else {`
`320`		`- data.table::fwrite(DT[, select_idx, with = FALSE], temp_file)`
	`320`	+ data.table::fwrite(data.table:::`[.data.table`(DT, , select_idx, with = FALSE), temp_file)
`321`	`321`	`}`
`322`	`322`	`},`
`323`	`323`	`Slow = "66cb6d2393cef30083b444346a7600a079207806", # Parent of the first commit in the PR (https://github.com/Rdatatable/data.table/commit/66cb6d2393cef30083b444346a7600a079207806)`