Как обеспечить согласованность атрибутов вызова функций в lapply и Map?

Я хочу прикрепить вызов функции как attributute. Хотя использование fn() напрямую работает нормально, когда я запускаю его внутри lapply(), он возвращает X[[i]] вместо фактического имени, переданного в параметр d=. Я ожидаю увидеть на выходе df1 и df2, а не X[[i]].

> fn <- \(d, x=x, y=999, ...) {
+   cl <- match.call()
+   fa <- formals(fn)
+   fa[length(fa)] <- NULL
+   ma <- setdiff(names(fa), names(cl))
+   cl[ma] <- fa[ma]
+   cl[-c(1, 2)] <- lapply(cl[-c(1, 2)], eval, envir=parent.frame())
+   # cl$d <- quote(d)
+   res <- d[[1]]  ## so `res` depends on `d`
+   attr(res, 'call') <- cl
+   return(res)
+ }
> 
> z. <- 777
> df1 <- lst$df1
> df2 <- lst$df2
> fn(df1, x=666, z=z.)
[1] 1 2 3
attr(,"call")
fn(d = df1, x = 666, z = 777, y = 999)
> lapply(list(df1=df1, df2=df2), fn, x=666, z=z.)
$df1
[1] 1 2 3
attr(,"call")
FUN(d = X[[i]], x = 666, z = 777, y = 999)

$df2
[1] 1 2 3
attr(,"call")
FUN(d = X[[i]], x = 666, z = 777, y = 999)

Это, очевидно, относится к предыдущему вопросу , поэтому я попробовал Map как предложено, однако, видимо, это не дает хорошего обобщения.

> Map(list(df1=df1, df2=df2), f=fn, x=666, z=z.)
$df1
[1] 1 2 3
attr(,"call")
(\(d, x=x, y=999, ...) {
  cl <- match.call()
  fa <- formals(fn)
  fa[length(fa)] <- NULL
  ma <- setdiff(names(fa), names(cl))
  cl[ma] <- fa[ma]
  cl[-c(1, 2)] <- lapply(cl[-c(1, 2)], eval, envir=parent.frame())
  # cl$d <- quote(d)
  res <- d[[1]]
  attr(res, 'call') <- cl
  return(res)
})(d = dots[[1L]][[2L]], x = 666, z = 777, y = 999)

$df2
[1] 1 2 3
attr(,"call")
(\(d, x=x, y=999, ...) {
  cl <- match.call()
  fa <- formals(fn)
  fa[length(fa)] <- NULL
  ma <- setdiff(names(fa), names(cl))
  cl[ma] <- fa[ma]
  cl[-c(1, 2)] <- lapply(cl[-c(1, 2)], eval, envir=parent.frame())
  # cl$d <- quote(d)
  res <- d[[1]]
  attr(res, 'call') <- cl
  return(res)
})(d = dots[[1L]][[2L]], x = 666, z = 777, y = 999)

Затем я попытался сделать cl$d <- quote(d), cl$d <- quote(substitute(d)), cl$d <- quote(eval(parse(text=d))), cl$d <- quote(get(d)), как указано выше, но безрезультатно. Вот результат версии cl$d <- quote(d):

> fn(df1, x=666, z=z.)
[1] 1 2 3
attr(,"call")
fn(d = d, x = 666, z = 777, y = 999)
> lapply(list(df1=df1, df2=df2), fn, x=666, z=z.)
$df1
[1] 1 2 3
attr(,"call")
FUN(d = d, x = 666, z = 777, y = 999)

$df2
[1] 1 2 3
attr(,"call")
FUN(d = d, x = 666, z = 777, y = 999)

Ожидаемый результат

> lapply(list(df1=df1, df2=df2), fn, x=666, z=z.)
$df1
[1] TRUE
attr(,"call")
FUN(d = df1, x = 666, z = 777, y = 999)

$df2
[1] TRUE
attr(,"call")
FUN(d = df2, x = 666, z = 777, y = 999)

Внимание, я ищу решение, используя базу R.

Редактировать

После ответа @MrFlick я вижу, что мне нужно уточнить. На самом деле у меня большой список lst:

> lst <- list(df1=df1, df2=df2)
> lapply(lst, function(x) 
+   do.call("fn", list(as.name(x), x=666, z=z.))
+ )
Error in as.vector(x, mode = mode) : 
  'list' object cannot be coerced to type 'symbol'