Index columns by attribute name & value
Examples
library(data.table)
x <- data.table(
id = 1:5,
sbp = rnorm(5, 120, 15),
dbp = rnorm(5, 80, 10),
paO2 = rnorm(5, 90, 10),
paCO2 = rnorm(5, 40, 5)
)
setattr(x[["sbp"]], "source", "outpatient")
setattr(x[["dbp"]], "source", "outpatient")
setattr(x[["paO2"]], "source", "icu")
setattr(x[["paCO2"]], "source", "icu")
index_col_by_attr(x, "source", "icu")
#> paO2 paCO2
#> 4 5