# NOT RUN {
d <- data.frame(inc = c(25, NA, 17), age = c(21, 70, 30))
display_name(d$inc) <- "income (thousands of USD)"
dn <- display_names(d) # returns c(inc = "income (thousands of USD)", age = NA)
# }
Run the code above in your browser using DataLab