- fix inconsistency in rankSwap() Output [Issue #361]

bernhard-da · bernhard-da · commit 4747fe453fd7 · 2025-11-07T10:37:27.000+01:00
diff --git a/NEWS b/NEWS
@@ -1,3 +1,6 @@
+# 5.7.10
+- fix inconsistency in `rankSwap()` Output [Issue #361]
+
 # 5.7.9
 - Improvements for `recordSwap()`:
   + `hid`, `risk_variables`, `hierarchy`, `similar` and `carry_along` now accept factor variables as inputs
diff --git a/R/rankSwap.R b/R/rankSwap.R
@@ -201,6 +201,7 @@ setMethod(
   if (sum(index_missing) > 0 & is.na(missing)) {
     dat[dat == miss_val] <- NA
   }
+  attributes(dat) <- NULL
   obj[, variables] <- dat
   invisible(obj)
 })

Original file line number	Diff line number	Diff line change
`@@ -201,6 +201,7 @@ setMethod(`
`201`	`201`	`if (sum(index_missing) > 0 & is.na(missing)) {`
`202`	`202`	`dat[dat == miss_val] <- NA`
`203`	`203`	`}`
	`204`	`+ attributes(dat) <- NULL`
`204`	`205`	`obj[, variables] <- dat`
`205`	`206`	`invisible(obj)`
`206`	`207`	`})`