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

stan-dev · Feb 22, 2024 · d2a51bc · d2a51bc
1 parent 79114fb
commit d2a51bc
Showing 1 changed file with 1 addition and 1 deletion.
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
 )