R: итеративное определение функций внутри функций

mtoller спросил: 03 ноября 2018 в 09:51 в: r

Учитывая список функций

functions <- list(f1,f2)

Я хочу итеративно переопределить все функции в этом списке, чтобы получить

newFunctions <- list(function(...){f1(...) + 1},function(...){f2(...) + 1})

Я пытался добиться этого с помощью

newFunctions <- lapply(functions, function(i){
  return(function(...){
    return(i(...) + 1)
    }
}

, но это жестко кодирует i в функции вместо функции, на которую указывает итератор.

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

Есть ли способ реализовать это в R?

0 ответов