Рекурсивная карта в R

Question

Я пытаюсь найти или написать функцию, связанную с Map() в R, которая генерирует вложенный список результатов при применении функции.

Функция R Map() работает следующим образом:

Map(f, v, w, x) 
=> list(
     f(v1, w1, x1), 
     f(v2, w2, x2), ...) 

Я хотел бы Сопоставьте функции над каждой комбинации аргументов в V, W, X, и т.д., и возвращает список - верхний уровень из списка, соответствующей записи в V, каждый из этих записей должна быть список и содержать записи для каждого уровня ж, и на ...

в коде, я бы хотел

Map_recursive(f, v) == Map(f, v) == lapply(v, f) 
# 
# Map_recursive(c, c(a1=1, a2=2)) 
# => List(a1 = 1, a2 = 2) 

Map_recursive(f, v, w) 
== Map(function(vi) { 
    Map(f, vi, w) 
    }, v) 
== lapply(v, function(vi){ 
    lapply(w, function(wi) f(vi, wi)) 
    }) 
# 
# Map_recursive(c, c(a1 = 1, a2 = 2), c(b1=10, b2 = 20, b3 = 30)) 
# => List(
#  a1 = List(b1 = (1, 10), b2 = (1, 20), b3 = (1, 30)), 
#  a2 = List(b1 = (2, 10), b2 = (2, 20), b3 = (2, 30)) 
#  ) 

Map_recursive(f, v, w, x) == Map(function(vi){ 
    Map(function(wj){ 
     Map(f, vi, wj, x) 
     }, w)}, 
    v 
    ) 
# ... all the way down 

Важно отметить, что un как и в Map, итерационные входы не должны иметь одинаковую длину (т. е. v, w, x могут иметь разную длину), и должно быть возможно различное количество итерируемых входов.

Я искал через такие вещи, как R :: purrr и R :: функциональны, но я не мог найти функцию высшего порядка, который делает то, что мне нужно

R

Answer 1

Пожалуйста, игнорировать этот вопрос. Для моих текущих целей я был в состоянии решить эту проблему следующим образом, (хотя я должен строго приказать аргументы F):

Map_recursive <- function(f, ...){ 
    require(purrr) 
    dots <- list(...) 
    if (length(dots) == 1){ 
    return(
     do.call("Map", args = append(list(f), dots)) 
    ) 
    } else { 
    Map(
     function(vi){ 
     new.f <- purrr::partial(f, vi) 
     do.call(
      "Map_recursive", 
      args = append(list(new.f), dots[-1]) 
     ) 
     }, 
     dots[[1]] 
    ) 
    } 
    }