如何在Base R中实现switch语句的参数化？

在Base R环境下，要实现给switch动态传入类字典的分支选项，最简洁的写法是借助do.call()函数来拼接参数：

基础实现（使用列表作为字典） #

x <- '3'
cases <- list(
    '1' = 'Case 1',
    '2' = 'Case 2',
    '3' = 'Case 3'
)

# 核心执行代码
do.call(switch, c(list(x), cases))

适配命名向量的写法 #

如果你的分支选项是命名向量类型，只需先转成列表再传入：

x <- '3'
cases_vec <- c(
    '1' = 'Case 1',
    '2' = 'Case 2',
    '3' = 'Case 3'
)

do.call(switch, c(list(x), as.list(cases_vec)))

逻辑说明 #

switch的参数结构是「判断值 + 多个键值对分支」，c(list(x), cases)会把判断值x放在首位，后面拼接上字典对象的所有键值对，形成符合switch要求的参数列表，再通过do.call传递给switch执行，效果和直接手写所有分支完全一致。

内容的提问来源于stack exchange，提问作者runr