minor refactor

drop names from evals, rename variables
tidyfun · Feb 14, 2024 · c7e351c · c7e351c
1 parent ff91f79
commit c7e351c
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/R/summarize.R b/R/summarize.R
@@ -8,12 +8,11 @@ summarize_tf <- function(..., op = NULL, eval = FALSE) {
   op_call <- function(x) do.call(op, c(list(x), op_args))
   funs <- do.call(c, funs)
   # setting interpolate = TRUE would return more useful results for tfd_irreg
-  # not done here for transparency reasons.
+  # - not done here for transparency reasons.
   m <- suppressWarnings(as.matrix(funs))
-  ret <- apply(m, 2, op_call)
-  arg <- as.numeric(colnames(m))
-  args <- c(list(ret),
-            arg = list(arg),
+  value <- apply(m, 2, op_call) |> unname() |> list()
+  args <- c(value,
+            arg = list(attr(m, "arg")),
             domain = list(tf_domain(funs)),
             resolution = attr(funs, "resolution")
   )