From d2a51bc1bed82d2ce6f5cd42d84a96be71c0e295 Mon Sep 17 00:00:00 2001
From: jgabry <jgabry@gmail.com>
Date: Thu, 22 Feb 2024 11:08:11 -0700
Subject: [PATCH] don't use syntax from R > 4.0 to maintain compatibility with
 older R

---
 tests/testthat/test-default-methods.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/test-default-methods.R b/tests/testthat/test-default-methods.R
index 0548b34..c095071 100644
--- 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
 )