Update labels.R

fix for gdemin#107
duplicated values in labels:

R/labels.R

@@ -355,7 +355,7 @@ set_val_lab.default = function(x, value, add = FALSE){
         warning("You are trying to put value labels on factor. It can lead to unexpected results. Factor will be converted to character.")
     }
     !is.null(names(value)) || stop("'set_val_lab' - labels should be named vector.")
-    !anyDuplicated(value)  || stop("'set_val_lab' - duplicated values in labels: ",paste(value[duplicated(value)],collapse=" "))
+    #!anyDuplicated(value)  || stop("'set_val_lab' - duplicated values in labels: ",paste(value[duplicated(value)],collapse=" "))
 
     # this conversion is needed to avoid strange bug (incorrect residuals)
     # with 'lm' with labelled integers