reversing factors

Author: rubenarslan

DESCRIPTION

@@ -7,7 +7,7 @@ Description: Easily automate the following tasks to describe data frames:
   To do so, the package relies on 'rmarkdown' partials, so you can generate HTML, PDF, and Word documents. Codebooks
   are also available as tables (CSV, Excel, etc.).
   The metadata and codebooks are also available at your fingertips via RStudio Addins.
-Version: 0.6.3
+Version: 0.6.3.9000
 Authors@R: person("Ruben", "Arslan", email = "[email protected]", role = c("aut", "cre"))
 Depends: R (>= 3.0.1)
 URL: https://github.com/rubenarslan/codebook

R/correct_attributes.R

@@ -325,6 +325,12 @@ reverse_labelled_values <- function(x) {
   labels <- attributes(x)$labels
   values <- unname(labels)
   labels <- names(labels)
+  if (is.factor(x) && is.null(labels) && !is.null(attributes(x)$levels)) {
+    warning("Turning a factor into a labelled numeric vector")
+    values <- seq_len(length(attributes(x)$levels))
+    labels <- attributes(x)$levels
+    x <- as.numeric(x)
+  }
   if (
     sum(!is.na(values)) == 0 ||
     (any(x > max(values, na.rm = TRUE) |
@@ -354,7 +360,7 @@ reverse_labelled_values <- function(x) {
     recode_replies <- stats::setNames(
       as.list(possible_replies), rev(possible_replies))
     new_x <- dplyr::recode(as.numeric(x), rlang::UQS(recode_replies))
-    # cbind(new_x,x)
+
     attributes(new_x) <- attributes(x)
     attributes(new_x)$labels <- stats::setNames(rev(values), labels)
     new_x

tests/testthat/test_correct_attributes.R

@@ -260,4 +260,12 @@ test_that("reverse labelled values", {
   expect_equal(reversed[[1]], 3)
   expect_equal(reversed[[4]], 2)
   expect_equal(reversed[[9]], 1)
+
+  x <- factor(rep(1:3, each = 3), levels = 1:5, labels = letters[1:5])
+  expect_warning(reversed <- reverse_labelled_values(x), "factor")
+  expect_identical(names(attributes(reversed)$labels), letters[1:5])
+  expect_equivalent(attributes(reversed)$labels, 5:1)
+  expect_equal(reversed[[1]], 5)
+  expect_equal(reversed[[4]], 4)
+  expect_equal(reversed[[9]], 3)
 })