我有一些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。
答案 0 :(得分:3)
已经修复
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