Takes a vector of coded values and a pipe-delimited string of key=label pairs and returns a vector of human-readable labels. Automatically pads values with leading zeros to match the width of the lookup keys.

decode_column(x, codes_str)

Arguments

x

A vector of coded values to decode. Can be integer, numeric, or character.

codes_str

A pipe-delimited string of key=label pairs, e.g. "1=Male|2=Female" or "01=January|02=February".

Value

A character vector of decoded labels. Values with no matching key are returned as NA.

Examples

decode_column(c(1, 2, 1), "1=Male|2=Female")
#>        1        2        1 
#>   "Male" "Female"   "Male" 
decode_column(c(1, 12), "01=January|02=February|12=December")
#>         01         12 
#>  "January" "December"