Несколько функций с несколькими аргументами с purrr

Question

Мне удалось реализовать способ повторения комбинации аргументов для одной функции:

a <- seq(1, 5, 1)
b <- rep(10, 15, 1)

foo <- function(a, b){ a + b}
foo2 <- function(a, b) {a * b}

result <- invoke_map_dbl(foo, cross2(a, b))

Однако я не смог перебрать эти аргументы для двух функций.Я хотел бы сделать это:

result <- invoke_map_dbl(list(foo, foo2), cross2(a,b))

Возможно ли это?

Answer 1

Возможно, проблема заключается в попытке принудительного вывода списка dbl. Разве тебе просто не нужно ...

invoke_map(list(foo,foo2), a=a, b=b)

[[1]]
[1] 11 12 13 14 15

[[2]]
[1] 10 20 30 40 50

Вы можете unlist получить один вектор, если вы этого хотите.

Глядя на это снова, я замечаю, что вы просто определяете b=10, что выглядит неправильно. Так что это, вероятно, не делает то, что вы просите, но вам нужно быть более конкретным с вашим вопросом.