Permalink
Browse files

Delete unused function

  • Loading branch information...
1 parent ea39130 commit 069e98a9a345b1d04a773a00e6363c545ce6f542 @crowding crowding committed Sep 2, 2013
Showing with 0 additions and 8 deletions.
  1. +0 −8 R/rbind-fill.r
View
@@ -62,14 +62,6 @@ rbind.fill <- function(...) {
quickdf(lapply(output, function(x) x()))
}
-factor_to_char_preserving_attrs <- function(x) {
- a <- attributes(x)
- a[c("levels", "class")] <- NULL
- x <- as.character(x)
- mostattributes(x) <- a
- x
-}
-
output_template <- function(dfs, nrows) {
vars <- unique(unlist(lapply(dfs, base::names))) # ~ 125,000/s
output <- vector("list", length(vars))

0 comments on commit 069e98a

Please sign in to comment.