replace df_rows() with vec_slice()

Author: teunbrand

R/compat-plyr.R

@@ -293,7 +293,7 @@ dapply <- function(df, by, fun, ..., drop = TRUE) {
   ids <- id(grouping_cols, drop = drop)
   group_rows <- split_with_index(seq_len(nrow(df)), ids)
   result <- lapply(seq_along(group_rows), function(i) {
-    cur_data <- df_rows(df, group_rows[[i]])
+    cur_data <- vec_slice(df, group_rows[[i]])
     apply_fun(cur_data)
   })
   vec_rbind0(!!!result)

R/performance.R

@@ -10,11 +10,6 @@ mat_2_df <- function(x, col_names = colnames(x)) {
   data_frame0(!!!cols, .size = nrow(x))
 }
 
-df_rows <- function(x, i) {
-  cols <- lapply(x, `[`, i = i)
-  data_frame0(!!!cols, .size = length(i))
-}
-
 # More performant modifyList without recursion
 modify_list <- function(old, new) {
   for (i in names(new)) old[[i]] <- new[[i]]