removes labelled class

As per larmarange/labelled#111
DanChaltiel · Nov 25, 2021 · 66bcff9 · 66bcff9
1 parent 122e388
commit 66bcff9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 8 deletions.
diff --git a/R/labels.R b/R/labels.R
@@ -90,9 +90,6 @@ set_label = function(x, value, object=FALSE){
         return(x)
     }
     attr(x, "label") = value
-    if (!"labelled" %in% class(x)) {
-        class(x) = c("labelled", class(x))
-    }
     return(x)
 }
 
@@ -125,8 +122,8 @@ copy_label_from = function(x, from){
 #' @aliases remove_label
 #' @seealso [get_label], [set_label], [import_labels], [expss::unlab]
 #' @examples 
-#' mtcars2 %>% remove_labels %>% crosstable(1:2) #no labels
-#' mtcars2$hp %>% remove_labels %>% get_label #numeric
+#' mtcars2 %>% remove_labels %>% crosstable(mpg) #no label
+#' mtcars2$hp %>% remove_labels %>% get_label() #NULL
 remove_labels = function(x){
     if (is.null(x)) 
         return(x)

diff --git a/tests/testthat/test-labels.R b/tests/testthat/test-labels.R
@@ -100,9 +100,6 @@ test_that("Removing labels", {
     expect_type(x, "double")
     expect_type(x2, "double")
 
-    expect_s3_class(x, c("labelled", "numeric"))
-    expect_s3_class(x2, NA)
-
     #limit case
     expect_null(remove_label(NULL))
 })