R包Formula调用Formula()/as.Formula()后出现警告问题求助

在使用Formula包的Formula()或as.Formula()函数处理多部分公式时，执行转换操作后的任意一行代码都会触发如下警告：

Warning message:
In is.name(callee) && length(object) > 20 :
  'length(x) = 2 > 1' in coercion to 'logical(1)'

该警告不会影响代码功能，但暂时无法找到明确的触发原因，已完成以下排查：

• 仅加载基础包与Formula包，排除其他包的干扰
• 在RGui中可正常复现代码流程，无此警告
• 已联系Formula包作者，暂未获得反馈
• 查阅包官方文档及GitHub仓库，未找到相关问题说明

复现代码示例 #

library(Formula)
# 定义多部分工具变量公式
f1 <- y ~ x1 + x2 | z1 + z2 + z3
# 转换为Formula类对象
F1 <- Formula(f1)
# 执行任意代码都会触发警告
class(F1)

运行输出：

> class(F1)
[1] "Formula" "formula"
Warning message:
In is.name(callee) && length(object) > 20 :
  'length(x) = 2 > 1' in coercion to 'logical(1)'

另一个测试场景：

> F1 <- Formula(f1)
> print("lol")
[1] "lol"
Warning message:
In is.name(callee) && length(object) > 20 :
  'length(x) = 2 > 1' in coercion to 'logical(1)'

临时处理方案 #

由于警告不影响功能实现，若需消除警告，可使用suppressWarnings()包裹公式转换代码：

library(Formula)
f1 <- y ~ x1 + x2 | z1 + z2 + z3
# 屏蔽转换时的潜在警告
F1 <- suppressWarnings(Formula(f1))
# 后续代码不再触发该警告
class(F1)

问题定位 #

目前可确定该警告是RStudio环境特有的兼容性问题，与Formula包自身逻辑无关（RGui环境无此问题），推测是RStudio后台的代码检查机制或环境变量与Formula包的对象处理逻辑产生冲突所致。

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