在引用表达式中使用 data.table 的 .() 快捷方式

Question

我有一些 data.tables 包含文件名作为名为 fn 的 var。我想拆分基本名称和扩展名：

library(data.table)
library(tools)

DT1 = data.table(fn = c("gah.csv", "egad.csv"))
DT2 = data.table(fn = c("gah.xlsx", "egad.xlsx"))
DT3 = data.table(fn = c("boo.txt", "ya.foo"))

do_split_fn = quote(c("name", "ext") := list(file_path_sans_ext(fn), file_ext(fn)))

DT1[, eval(do_split_fn)]
DT2[, eval(do_split_fn)]
DT3[, eval(do_split_fn)]

所以这一切都很好，我的问题很小：我可以使用更像这样的表达式吗？

do_split_fn_dot = quote(c("name", "ext") := .(file_path_sans_ext(fn), file_ext(fn)))
DT1[, eval(do_split_fn_dot)]
# Error in eval(expr, envir, enclos) : could not find function "."

也就是说，我正在尝试将 list() 换成 .()，就像在 `[.data.table` 中所做的那样。

我的 quote/eval 内容是在尝试关注 recommendations in the data.table FAQ 1.6。

Answer 1

已经修复

library(data.table)
library(tools)

DT1 = data.table(fn = c("gah.csv", "egad.csv"))

do_split_fn_dot = quote(c("name", "ext") := .(file_path_sans_ext(fn), file_ext(fn)))
DT1[, eval(do_split_fn_dot)]
DT1
#         fn   name    ext
#1:  gah.csv    gah    csv
#2: egad.csv   egad    csv

在引用表达式中使用 data.table 的 .() 快捷方式

Using data.table's .() shortcut in quoted expressions

eval

r

data.table