我想知道是否可以将表达式替换到data.table的i部分.我已经建立了一个深度嵌套的列表，其中包含根据用户在shiny 的应用程序中 Select 的子组执行子设置的预设参数.我怀疑这是不可能的，但我希望以某种方式得到确认.
如果不可能，我欢迎任何替代解决方案的 idea .
基本示例
library(data.table)
dt = data.table(
y = rep(c('a','b'),5),
x = 1:10
)
exp1 = "x > 5"
dt[y == "a" & substitute(exp1)]
# Error: operations are possible only for numeric, logical or complex types
我的做法是这样的:
library(data.table)
exp1 = "x > 5" |> str2lang()
(ll <- substitute(
dt[y == "a" & e1],
list(
e1 = exp1
)
))
eval(ll)
我认为这是一个很好的方法，因为它保持了惯用的data.table的外观.例如，如果您想要dt[y == "a" & x > 5, .(mm = length(x)), by = "y"]:
(ll <- substitute(
dt[y == "a" & e1, .(mm = f1(e2)), by = e3], # Change right here and maintain data.table's look
list(
e1 = exp1,
# e1 = "x > 5" |> str2lang(),
e2 = quote(x), # Allow more flexibilities
e3 = "y", # Allow more flexibilities
f1 = quote(length) # Allow more flexibilities
)
))
eval(ll)
它也类似于data.table发展版中提出的substitute2和env方法.