有没有办法在每次调用lapply时更新参数？

# 创建一个参数列表
params <- list(param1 = "value1", param2 = "value2")

# 创建一个包含匿名函数的列表
functions <- list(
  function(x) {
    # 在这里使用param1和param2参数
    # 进行一些操作
    print(paste("Function 1:", x, params$param1, params$param2))
  },
  function(x) {
    # 在这里使用param1和param2参数
    # 进行一些操作
    print(paste("Function 2:", x, params$param1, params$param2))
  }
)

# 调用lapply，并在每次调用时更新参数
lapply(functions, function(f) f("input"))