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") {