From ffe7a7906c7eb5532e74b685ebe9cc5bb7ca2665 Mon Sep 17 00:00:00 2001
From: Beniamino Green <ben@greendalba.com>
Date: Fri, 8 Dec 2023 13:35:37 -0500
Subject: [PATCH] using old anonymous function syntax

---
 R/aggr_es.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/aggr_es.R b/R/aggr_es.R
index f9b03d8..bf2ae72 100644
--- a/R/aggr_es.R
+++ b/R/aggr_es.R
@@ -91,7 +91,7 @@ aggr_es = function(object,
     )
     ## Bind together and capture/re-assign and the hypothesis attribute (again,
     ## mostly for the "both" case)
-    hyp_attr = sapply(res, \(x) attributes(x)["hypothesis"])
+    hyp_attr = sapply(res, function(x) {attributes(x)["hypothesis"]})
     res = do.call("rbind", res)
     row.names(res) = NULL
     if (period == "both") {