## create an example GADSdat
example_df <- data.frame(ID = 1:6,
citizenship = c("germ", "engl", "germ, usa", "china",
"austral, morocco", "nothin"),
stringsAsFactors = FALSE)
gads <- import_DF(example_df)
## create Lookup
lu <- createLookup(gads, recodeVars = "citizenship", addCol = c("cit_1", "cit_2"))
lu$cit_1 <- c("German", "English", "German", "Chinese", "Australian", NA)
lu$cit_2 <- c(NA, NA, "USA", NA, "Morocco", NA)
## apply lookup table
gads2 <- applyLookup_expandVar(gads, lookup = lu)
Run the code above in your browser using DataLab