data <- data.frame(USUBJID = c(1, 2, 3), AVAL = c(4, 5, 6))
labels <- data.frame(
Variable = c("USUBJID", "AVAL"),
Label = c("Unique Subject Identifier", "Analysis Value"),
Dataset = c("ADNCA", "ADNCA")
)
data <- apply_labels(data, labels, "ADNCA")
print(attr(data$USUBJID, "label")) # "Unique Subject Identifier"
print(attr(data$AVAL, "label")) # "Analysis Value"
Run the code above in your browser using DataLab