# Empty metadata (default)
m <- survey_metadata()
m@variable_labels
# Pre-populated metadata
m <- survey_metadata(
variable_labels = list(age = "Respondent age", income = "Annual income"),
value_labels = list(sex = c(Male = 1L, Female = 2L))
)
m@variable_labels$age
m@value_labels$sex
Run the code above in your browser using DataLab