保持资源锁定詹金斯

Question

我的意图是保持资源锁定，但是当我执行下面的代码时，锁在管道的末尾被释放。有办法吗？

此外，当资源被锁定时，日志消息似乎没有出现。

library(data.table)
set.seed(1)
data <- data.table(x = rpois(n = 1e6, lambda = 100),
                   y = rpois(n = 1e6, lambda = 1),
                   z = 'A')

setkeyv(data, c('x','y','z'))
data[, lapply(.SD, function(x) uniqueN(x) > 5)]