source print data.table表的print.eval选项

Question

我的问题可能很简单，但我找不到处理它的方法。

我有一个脚本，Test.R中包含data.table表，并打印我用作日志。 我想从另一个R函数调用这个脚本。 为此，我使用选项print.eval = T的source。我的问题是当我只想显示打印时，打印data.table以及打印结果。

Test.R：

library(data.table)

print("My log here")
t <- rnorm(10000, 1, 10)

t.dt <- data.table(t)
t.dt[, tt := pnorm(1, 0)]

run.R：

path <- my.path

source(paste0(path, "test.R"), print.eval  = TRUE)

我认为source会评估data.table并打印eval的结果。但我不知道如何将印刷品与data.table分开。

感谢，