R元编程场景下解析`1 days`类带空格表达式如何避免报错？

R的语法解析器会在代码执行前完成词法分析，空格会被识别为表达式分隔符，因此原生无修饰的1 days写法会被直接判定为语法错误，没有办法通过常规的元编程逻辑直接支持，以下是两种用户体验接近、可落地的折中方案：

方案1：字符串传参（成本最低，稳定性最高） #

让用户将时间表达式以字符串形式传入，你只需要在函数内部增加一层解析逻辑即可，用户侧写法为your_func("1 days")，和日常表达习惯几乎一致。
示例实现逻辑：

parse_duration <- function(expr_str) {
  # 正则匹配拆分数值和单位
  parts <- regmatches(expr_str, regexec("(\\d+)\\s*(\\w+)", expr_str))[[1]]
  num <- as.numeric(parts[2])
  unit <- parts[3]
  # 调用lubridate对应方法生成时间对象
  do.call(unit, list(num))
}

# 调用示例
parse_duration("1 days")

该方案完全绕开了R的语法限制，不需要复杂的元编程操作，也不会和R基础语法产生冲突，适合正式上线的函数库使用。

方案2：自定义运算符实现无引号写法 #

如果不想让用户额外输入引号，可以定义极简的自定义中缀运算符，用户侧写法可以做到1 %t% days，仅多了3个字符，学习成本极低。
示例实现逻辑：

`%t%` <- function(num, unit) {
  unit_fun <- match.fun(unit)
  unit_fun(num)
}

# 调用示例
1 %t% days
# 作为参数传入你的业务函数
your_func(1 %t% days)

该方案的写法更接近原生代码体验，适合面向有一定R基础的用户的函数库使用。

内容的提问来源于stack exchange，提问作者Cédric