Remove redundant "as.data.set" method and setOldClass() call for "tbl…

…_df"
melff · Jan 20, 2021 · 56cd7d3 · 56cd7d3
1 parent 7ed1391
commit 56cd7d3
Showing 1 changed file with 0 additions and 12 deletions.
diff --git a/pkg/R/tibbles.R b/pkg/R/tibbles.R
@@ -144,15 +144,3 @@ setMethod("as_haven",signature(x="item.vector"),function(x,user_na=FALSE,...){
     }
     return(y)
 })
-
-if(!requireNamespace("tibble",quietly = TRUE)) setOldClass("tbl_df")
-setMethod("as.data.set","tbl_df",function(x,row.names=NULL,...){
-  class(x) <- "data.frame"
-  if(length(row.names)){
-    if(length(row.names)!=nrow(x)) stop("row.names argument has wrong length")
-    attr(x,"row.names") <- row.names
-  }
-  else
-    attr(x,"row.names") <- seq_len(nrow(x))
-  new("data.set",x)
-})