# Data frame with haven-style labels (Qualtrics / SPSS export pattern)
df <- data.frame(
discrim_a = 1:5,
discrim_b = 2:6,
discrim_c = 3:7
)
attr(df$discrim_a, "label") <-
"Please rate discrimination - Evangelical Christians"
attr(df$discrim_b, "label") <-
"Please rate discrimination - Muslims"
attr(df$discrim_c, "label") <-
"Please rate discrimination - Jews"
df <- infer_question_prefaces(df, verbose = FALSE)
attr(df$discrim_a, "label") # "Evangelical Christians"
attr(df$discrim_a, "question_preface") # "Please rate discrimination"
Run the code above in your browser using DataLab