如何在 R 中添加具有评估名称的环境选项?

How do you add an environment option with an evaluated name in R?

我创建了一个 google 令牌(类 Token2.0 的 R6 对象,令牌)以便我可以与 YouTube 分析 API 进行如下交互:

google_token <- httr::oauth2.0_token(httr::oauth_endpoints("google"),
                                     httr::oauth_app("google", appId, appSecret),
                                     scope = c("https://www.googleapis.com/auth/yt-analytics.readonly"))

我还有一个变量Account <- "myChannel"。类似于我之前发布的问题 我想评估 Account 并将值分配给 google_token 的内容。比如options(myChannel, google_token)有效,运行getOption("myChannel")显示token,但是因为我会生成各种token,想创建各种选项,所以想用Account。我希望类似以下的作品:

options(eval(Account) = google_token

# OR

do.call(options, as.list(setNames(google_token, Account)

这两个都不行。有什么建议吗?

我能够通过将选项值分配给一个列表来解决这个问题,将列表命名为我希望它在选项中的任何名称,然后分配选项,如下所示:

tokenOption <- list(google_token)
names(tokenOption) <- Account
options(tokenOption)

getOption("myChannel")
> #Gives me the results of my google_token