remove duplicated values in labels; fixed issue #79

ropensci · Feb 27, 2019 · c728c4d · c728c4d
1 parent 2600f9e
commit c728c4d
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