Use NextMethod in Extraction

nutterb · Jul 27, 2018 · 9a4eb66 · 9a4eb66
1 parent 3c4b7bc
commit 9a4eb66
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/R/extract_labelled.R b/R/extract_labelled.R
@@ -22,7 +22,7 @@
 
 `[.labelled` <- function(x, i, ...){
   structure(
-    unclass(x)[i],
+    NextMethod(),
     label = attr(x, "label"),
     class = class(x)
   )
@@ -32,11 +32,12 @@
 #' @export
 
 `[<-.labelled` <- function(x, i, value, ...){
-  x_new <- x
-  class(x_new) <- class(x_new)[!class(x_new) %in% "labelled"]
-  x_new[i] <- value
+  # x_new <- x
+  # class(x_new) <- class(x_new)[!class(x_new) %in% "labelled"]
+  # x_new[i] <- value
   structure(
-    x_new,
+    # x_new,
+    NextMethod(),
     label = attr(x, "label"),
     class = c("labelled", class(x_new))
   )