如何使用文本表达式对data.table数据进行子集化及转换？

假设读取了一个包含数据集操作指令的文件，示例代码如下：

library(data.table)
dt = setDT(mtcars)
exp1 = "cyl == 8 & mpg > 16"
exp2 = "cyl == 6 & mpg < 20"

此处的exp1和exp2是以文本形式从文件读取的，能否实现类似如下的操作，即用文本表达式进行数据子集化及其他数据转换？

dt[eval(exp1)]
dt[eval(exp2)]

补充说明：
若使用如下方式可以正常运行：

exp1 = quote(cyl == 8 & mpg > 16)
dt[eval(exp1)]

但如何将存储为文本的数据转换为可使用quote的形式？此外该方法是否存在问题？

1. 文本表达式转可执行对象的方法 #

要实现用文本表达式进行data.table子集化，你可以通过parse()函数将文本转换为R表达式对象，再用eval()在data.table的环境中执行：

library(data.table)
dt = setDT(mtcars)
exp1 = "cyl == 8 & mpg > 16"

# 把文本转为表达式对象
expr_obj = parse(text = exp1)[[1]]
# 在data.table中执行子集化
dt[eval(expr_obj)]

也可以直接简化成一行代码：

dt[eval(parse(text = exp1))]

2. 与quote()的等价性 #

quote()是直接捕获当前环境中的代码生成表达式对象，而parse(text = ...)则是从文本解析生成表达式对象，二者生成的对象本质完全一致，不需要额外转换，直接用eval()执行即可达到同样效果。

3. 必须注意的风险 #

这种方法存在代码注入风险：如果读取的文本表达式包含恶意代码（比如执行系统命令的危险代码），eval(parse(text = ...))会直接运行这些代码，可能导致数据丢失、系统损坏等严重问题。

只有当你完全控制文本内容、确保来源绝对安全时，才建议使用该方法；若文本来源不可信（如用户输入、未知第三方文件），请绝对避免使用。

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