using old anonymous function syntax (#31)

grantmcdermott · Dec 11, 2023 · f55f0dc · f55f0dc
1 parent 8ec86da
commit f55f0dc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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") {