Merge pull request #80 from ropensci/issue-79

remove duplicated values in labels; fixed issue #79
ropensci · Feb 27, 2019 · 8fe5a2d · 8fe5a2d
2 parents 2600f9e + c728c4d
commit 8fe5a2d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/read_dhs_flat.R b/R/read_dhs_flat.R
@@ -78,6 +78,9 @@ parse_dcf <- function(dcf, all_lower=TRUE) {
   values <- Map("names<-", values, labels)
   values <- lapply(values, function(x) x[!is.na(x) & nzchar(names(x))])
 
+  ## remove duplicate values from labels
+  values <- lapply(values, function(x) x[!duplicated(x)])
+
   dcf$labels[hasvs] <- values
 
   ## Expand dictionary for multiple occurences