don't use syntax from R > 4.0 to maintain compatibility with older R

jgabry · jgabry · commit d2a51bc1bed8 · 2024-02-22T11:08:11.000-07:00
diff --git a/tests/testthat/test-default-methods.R b/tests/testthat/test-default-methods.R
@@ -6,7 +6,7 @@ lw <- matrix(rnorm(150), 50, 3)
 lw <- sweep(
   lw,
   MARGIN = 2,
-  STATS = apply(lw, 2, \(col) log(sum(exp(col)))),
+  STATS = apply(lw, 2, function(col) log(sum(exp(col)))),
   check.margin = FALSE
 )
 

Original file line number	Diff line number	Diff line change
`@@ -6,7 +6,7 @@ lw <- matrix(rnorm(150), 50, 3)`
`6`	`6`	`lw <- sweep(`
`7`	`7`	`lw,`
`8`	`8`	`MARGIN = 2,`
`9`		`- STATS = apply(lw, 2, \(col) log(sum(exp(col)))),`
	`9`	`+ STATS = apply(lw, 2, function(col) log(sum(exp(col)))),`
`10`	`10`	`check.margin = FALSE`
`11`	`11`	`)`
`12`	`12`