From c7e351cf7ffddf4efe7ad2a92fb327d69b8323a9 Mon Sep 17 00:00:00 2001 From: fabian-s Date: Wed, 14 Feb 2024 18:09:23 +0100 Subject: [PATCH] minor refactor drop names from evals, rename variables --- R/summarize.R | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/R/summarize.R b/R/summarize.R index ccd7cb58..728d0d6c 100644 --- 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") )