ipums
diff --git a/‎NEWS.md‎
Lines changed: 3 additions & 0 deletions b/‎NEWS.md‎
Lines changed: 3 additions & 0 deletions
diff --git a/‎R/ddi_read.R‎
Lines changed: 2 additions & 2 deletions b/‎R/ddi_read.R‎
Lines changed: 2 additions & 2 deletions
@@ -1,5 +1,8 @@
 # ipumsr (development version)
 
+* Improved parsing of labeled values included in "codInstr" tags in the DDI 
+  codebook for microdata extracts.
+
 # ipumsr 0.9.0
 
 ## New features
 
@@ -781,8 +781,8 @@ get_var_info_from_ddi <- function(ddi_xml,
 
   code_instr <- fostr_replace(
     xml_text_from_path_first(var_info_xml, "d1:codInstr"),
-    "^Codes",
-    ""
+    "^Codes|(\n)Codes([[:digit:]])",
+    "\\1\\2"
   )
 
   if (file_type == "hierarchical") {
Original file line number	Diff line number	Diff line change
`@@ -781,8 +781,8 @@ get_var_info_from_ddi <- function(ddi_xml,`
`781`	`781`
`782`	`782`	`code_instr <- fostr_replace(`
`783`	`783`	`xml_text_from_path_first(var_info_xml, "d1:codInstr"),`
`784`		`- "^Codes",`
`785`		`- ""`
	`784`	`+ "^Codes\|(\n)Codes([[:digit:]])",`
	`785`	`+ "\\1\\2"`
`786`	`786`	`)`
`787`	`787`
`788`	`788`	`if (file_type == "hierarchical") {`