R 如何显示函数创建的列表对象的参数值

我有一个函数open.account，它接受一个参数“total”，并创建一个包含三个函数（存款、取款、余额）的列表。如果我运行

test，每个返回的函数都有自己的环境，其中存储了
total

g <- open.account(total = 100)

environment(g$deposit)
# <environment: 0x279d0b0>
ls(environment(g$deposit))
# [1] "total"
environment(g$deposit)$total
# [1] 100

g
g <- open.account(total = 100)

environment(g$deposit)
# <environment: 0x279d0b0>
ls(environment(g$deposit))
# [1] "total"
environment(g$deposit)$total
# [1] 100