我希望根据另一个表中的覆盖来更正一个表。当dt_override具有该单元并且日期范围与dt_current重叠时,我想要更改dt_current中的值。
dt_current <- data.table( unit = c(rep("a",10), rep("b", 10)),
date = seq(as.Date("2015-1-1"), by = "day", length.out = 10),
num = 1:10, key = "unit")
dt_override <- data.table( unit = c("a", "a", "b", "zed" ), start_date = as.Date(c("2015-01-03", "1492-12-25", "2015-01-02", "2015-01-11")),
end_date = as.Date(c("2015-01-05", "1492-12-26", "2015-01-04", "2015-01-14")),
value = NA, key = "unit")
看起来我应该在连接这两个数据表时使用某种形式的.EACHI,编写如下代码,尽管它当然不起作用。
dt_current[dt_override,
num := if(i.start_date <= date & i.end_date >= date) i.value,
by = .EACHI]