Convert value attributes to integers if appropriate

Displayr · May 12, 2021 · d9fb1fc · d9fb1fc
1 parent d0546b4
commit d9fb1fc
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/R/stacking.R b/R/stacking.R
@@ -1111,6 +1111,12 @@ stackedDataSet <- function(input.data.set, input.data.set.metadata,
                              "labels", exact = TRUE)
             if (!is.null(val.attr))
             {
+                if (is.integer(v))
+                {
+                    nms <- names(val.attr)
+                    val.attr <- as.integer(val.attr)
+                    names(val.attr) <- nms
+                }
                 attr(v, "labels") <- val.attr
                 class(v) <- c(class(v), "haven_labelled")
             }
@@ -1129,6 +1135,12 @@ stackedDataSet <- function(input.data.set, input.data.set.metadata,
             val.attr <- attr(input.var, "labels", exact = TRUE)
             if (!is.null(val.attr))
             {
+                if (is.integer(v))
+                {
+                    nms <- names(val.attr)
+                    val.attr <- as.integer(val.attr)
+                    names(val.attr) <- nms
+                }
                 attr(v, "labels") <- val.attr
                 class(v) <- c(class(v), "haven_labelled")
             }