如何在R中获取环境变量值或未设置时使用默认值？

原生方法直接实现 #

Sys.getenv()本身提供了unset参数，可直接指定环境变量未设置时的默认值，这是最简洁的方式：

Sys.getenv("FOO_KEY", unset = "barValue")

当FOO_KEY不存在时，会返回"barValue"；若已设置，则返回对应的值。

实现你期望的链式调用风格 #

如果想要类似.withDefault()的链式写法，可以通过自定义函数实现：

方式1：结合管道函数（需magrittr包）

# 首次使用需先安装：install.packages("magrittr")
library(magrittr)

with_default <- function(x, default) {
  if (x == "") default else x
}

# 调用示例
Sys.getenv("FOO_KEY") %>% with_default("barValue")

方式2：给字符类型添加专属方法

withDefault <- function(x, default) {
  if (x == "") default else x
}

# 注册方法，让字符串对象可直接调用
utils::globalVariables("withDefault")
assignMethod("withDefault", signature = "character", definition = withDefault)

# 调用示例
Sys.getenv("FOO_KEY")$withDefault("barValue")

获取确定存在的环境变量 #

如果确认目标环境变量一定存在，直接调用Sys.getenv()即可，无需额外参数：

Sys.getenv("EXISTING_KEY")

内容的提问来源于stack exchange，提问作者Ramón J Romero y Vigil