avoid as_tibble()

lorenzwalthert · lorenzwalthert · commit 17bcb6d67530 · 2020-11-26T17:35:18.000+01:00
speed boost ~ 4%
diff --git a/R/compat-tidyr.R b/R/compat-tidyr.R
@@ -6,5 +6,5 @@ nest_ <- function(data, key_col, nest_cols = character()) {
   res <- list()
   res[[key_column]] <- key_levels
   res[[key_col]] <- split(data[, nest_cols], key_factor)
-  as_tibble(res)
+  new_tibble(res, nrow = length(key_levels))
 }

Original file line number	Diff line number	Diff line change
`@@ -6,5 +6,5 @@ nest_ <- function(data, key_col, nest_cols = character()) {`
`6`	`6`	`res <- list()`
`7`	`7`	`res[[key_column]] <- key_levels`
`8`	`8`	`res[[key_col]] <- split(data[, nest_cols], key_factor)`
`9`		`- as_tibble(res)`
	`9`	`+ new_tibble(res, nrow = length(key_levels))`
`10`	`10`	`}`