Update fctr.R

fix for gdemin#107 duplicated values in labels:
Waschoi · Feb 2, 2024 · bead5bc · bead5bc
1 parent 668d7ba
commit bead5bc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/fctr.R b/R/fctr.R
@@ -56,7 +56,7 @@ fctr.labelled = function(x, ..., drop_unused_labels = FALSE, prepend_var_lab = T
     vallab = val_lab(x)
     varlab = var_lab(x)
     x = unlab(x)
-    !anyDuplicated(vallab) || stop("duplicated values in labels: ",paste(vallab[duplicated(vallab)],collapse=" "))
+    #!anyDuplicated(vallab) || stop("duplicated values in labels: ",paste(vallab[duplicated(vallab)],collapse=" "))
 
     uniqs=unique(x)
     vallab = labelled_and_unlabelled(uniqs,vallab) 
@@ -108,4 +108,4 @@ fast_factor = function (x = character(), levels, labels = levels, exclude = NA,
     else paste0(labels, seq_along(levels))
     class(f) <- c(if (ordered) "ordered", "factor")
     f
-}
+}