Использование purrr::map с пользовательской функцией – как передавать аргументы

Я создаю пакет, в котором у меня есть функция (pkgfun), которая вычисляет некоторые индикаторы на основе значений из подмножеств фрейма данных, используя group_by и purrr::map. Я также хотел бы предоставить пользователю возможность отправить дополнительную функцию (userfun) для расчета этого индикатора, если ни одна из встроенных функций не соответствует потребностям. Поэтому pkgfun должен принимать некоторые дополнительные параметры для userfun, но также позволять userfun использовать другие переменные в pkgfun, либо другие аргументы, либо переменные, определенные внутри функции.

В идеале мне бы хотелось написать функции как можно ближе к следующему примеру. Однако это не позволит правильно передать аргументы.

pkgfun = function(df, pkgArg, userfun, fargs, test, ...) {
    dots = list(...)
    funArg = 3
    fargs = names(formals(userfun))
    ufRes = df %>% 
      group_by(himgid) %>%  nest() %>%
      mutate(ufres = map(data, ~userfun(., fargs))) %>%
      unnest(ufres) %>% ungroup %>% select(ufres) %>% pull 
    print("ufRes")
    ufRes
  }
  
  userfun = function(df, aboveLimit, pkgArg, funArg) {
    print(funArg)
    sum(df$gridvar > aboveLimit) >= pkgArg
  }

 pkgfun(df, userfun = userfun, aboveLimit = 5, pkgArg = 5)

Мне удалось создать упрощенный рабочий пример, но я считаю, что это зависит от некоторой избыточности на стороне пользователя, кажется слишком сложным и использует некоторые выражения, которые я бы предпочел удалить (например, eval(parse(...))).

Реализация pkgfun допускает два способа передачи правильных аргументов, но ни один из них мне не нравится.

Первый принимает дополнительный аргумент fargs, который включает в себя все имена аргументов, которые следует добавить в argList — список аргументов. Это неприятность при вызове функции.

Второй проверяет список обязательных аргументов userfun, ищет их и добавляет все в argList. Однако это означает, что пользователю необходимо указать в userfun фиктивные аргументы, которые на самом деле не используются в функции.

Я думаю, что можно как приблизиться к первому примеру, так и убрать конструкцию eval(parse, но как...? Какие-либо предложения?

# pkgArg is an argument that is otherwise used in pkgfun, and reused in userfun
pkgfun = function(df, pkgArg, userfun, fargs, test, ...) {
  dots = list(...)
# funArg is a variable defined inside the function, and but also useful in userfun. 
  funArg = 3
# Finding the arguments from userfun if not given as an argument
  if (missing(fargs)) {
    fargs = names(formals(userfun))
    fargs = fargs[!(fargs %in% c("df", "argList", "..."))]
  }
  dnames = names(dots)[which(names(dots) %in% fargs)] 
# Adding ... arguments to the environment, so they are available to dynGet
  if (length(dnames) > 0) for (dn in dnames) eval(parse(text = paste(dn, " = ", dots[[dn]] )))
  argList = lapply(fargs, dynGet)
  names(argList) = fargs
# 
  ufRes = df %>%
    group_by(himgid) %>%  nest() %>%
    mutate(ufRes = map(data, ~userfun(., argList = argList))) %>%
    unnest(ufRes) %>% ungroup %>% select(ufRes) %>% pull 
  print("ufRes")
  ufRes
}

# The userfun checks if the group has at least pkgArg entries that are larger than aboveLimit
# It also prints the names of the arguments in argList, and funArg, just to check that it 
# is correctly passed
userfun = function(df, aboveLimit, pkgArg, funArg, argList) {
  print(paste("argList", names(argList)))
   aboveLimit = argList$aboveLimit
   pkgArg = argList$pkgArg
   funArg = argList$funArg
   print(funArg)
    sum(df$gridvar > aboveLimit) >= pkgArg
  }

  df = data.frame(himgid = rep(c(1,2,3), 20), gridvar = 1:20)

# Call function with a vector of argument names, the named variables are then unnecessary in
# function definition
  pkgfun(df, userfun = userfun, fargs = c("aboveLimit", "pkgArg", "pkgArg"), 
            aboveLimit = 5, pkgArg = 5)
# This call is possible when the arguments are named in the function definition
  pkgfun(df, userfun = userfun, aboveLimit = 5, pkgArg = 5)