set_varlabs.R

df.VARLABS <- tibble::tribble(
  ~VARNAME,       ~LABEL,
  "PATIENT_ID",   "Patient ID",
  "ARM",          "Randomisation arm",
  "RANDO_DAT",    "Randomisation date"
)


df.DATA <- data.frame(
  PATIENT_ID =   "id-123",
  ARM =          "Intervention",
  RANDO_DAT =    "2022-02-03",
  NO_LABEL = "no label in dictionary"
)

set_varlabs <- function(data,
                        dict = df.VARLABS,
                        name = VARNAME,
                        label = LABEL
) {


  labs <- dict %>%
    filter({{name}} %in% colnames(data)) %>%
    pull({{label}})

  length.diff <- ncol(data) - length(labs)


  if (length.diff > 0) {labs <- c(labs, rep("", length.diff))}


  data %>%
    relocate(any_of(pull(dict, {{name}}))) %>%
    labelled::set_variable_labels(.labels = labs)
}

df.DATA_W_LABELS <- df.DATA %>%
  set_varlabs()