Preserve correct label oder

[strengejacke]

library(datawizard)
x <- factor(c(1, 2, 3, 4))
x <- assign_labels(x, values = c("one", "two", "three", "four"))

to_numeric(x, dummy_factors = FALSE)
#> [1] 1 2 3 4
#> attr(,"labels")
#>   one   two three  four 
#>     1     2     3     4

to_numeric(reverse_scale(x), dummy_factors = FALSE)
#> [1] 4 3 2 1
#> attr(,"labels")
#>   one   two three  four 
#>     4     3     2     1

^{Created on 2023-12-18 with reprex v2.0.2}

[strengejacke]

Was:

library(datawizard)
x <- factor(c(1, 2, 3, 4))
x <- assign_labels(x, values = c("one", "two", "three", "four"))

to_numeric(x, dummy_factors = FALSE)
#> [1] 1 2 3 4
#> attr(,"labels")
#>   one   two three  four 
#>   "4"   "3"   "2"   "1"

to_numeric(reverse_scale(x), dummy_factors = FALSE)
#> [1] 4 3 2 1
#> attr(,"labels")
#>   one   two three  four 
#>   "1"   "2"   "3"   "4"

packageVersion("datawizard")
#> [1] '0.9.0'

^{Created on 2023-12-18 with reprex v2.0.2}

[codecov]

Codecov Report

Attention: 1 lines in your changes are missing coverage. Please review.

Comparison is base (5f5c9c1) 89.10% compared to head (ba0471f) 89.09%.

Files	Patch %	Lines
R/utils_labels.R	88.88%	1 Missing ⚠️

Additional details and impacted files

@@            Coverage Diff             @@
##             main     #473      +/-   ##
==========================================
- Coverage   89.10%   89.09%   -0.01%     
==========================================
  Files          72       72              
  Lines        5416     5422       +6     
==========================================
+ Hits         4826     4831       +5     
- Misses        590      591       +1     

☔ View full report in Codecov by Sentry.
📢 Have feedback on the report? Share it here.