Shorthand lambda unavailable on old R (#6812)

MichaelChirico · web-flow · commit 00d53f4904f5 · 2025-02-10T09:56:53.000-08:00
diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw
@@ -7888,7 +7888,7 @@ test(1551.5, fread(str),
 rhs = setDT(read.table(testDir("issue_1095_fread.txt.bz2"), sep=",", comment.char="", stringsAsFactors=FALSE, quote="", strip.white=TRUE))
 if (test_R.utils) {
   test(1551.61, fread(testDir("issue_1095_fread.txt.bz2"), logical01=FALSE), rhs, warning=w)
-  rhs[, names(.SD) := lapply(.SD, \(x) x == "Y"), .SDcols = c("V16", "V17", "V45")]
+  rhs[, names(.SD) := lapply(.SD, function(x) x == "Y"), .SDcols = c("V16", "V17", "V45")]
   test(1551.62, fread(testDir("issue_1095_fread.txt.bz2"), logical01=FALSE, logicalYN=TRUE), rhs, warning=w)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -7888,7 +7888,7 @@ test(1551.5, fread(str),`
`7888`	`7888`	`rhs = setDT(read.table(testDir("issue_1095_fread.txt.bz2"), sep=",", comment.char="", stringsAsFactors=FALSE, quote="", strip.white=TRUE))`
`7889`	`7889`	`if (test_R.utils) {`
`7890`	`7890`	`test(1551.61, fread(testDir("issue_1095_fread.txt.bz2"), logical01=FALSE), rhs, warning=w)`
`7891`		`- rhs[, names(.SD) := lapply(.SD, \(x) x == "Y"), .SDcols = c("V16", "V17", "V45")]`
	`7891`	`+ rhs[, names(.SD) := lapply(.SD, function(x) x == "Y"), .SDcols = c("V16", "V17", "V45")]`
`7892`	`7892`	`test(1551.62, fread(testDir("issue_1095_fread.txt.bz2"), logical01=FALSE, logicalYN=TRUE), rhs, warning=w)`
`7893`	`7893`	`}`
`7894`	`7894`