Replace tibbles with data frames to improve performance (#1007)

* as_tibble -> as.data.frame

* new_tibble -> data.frame

* pre-commit

* Update utils.R

* Update ui-caching.R

* encapsulate in wrappers around vctrs functions

* Add vctrs to DESCRIPTION

* pre-commit

* Update utils.R

* Update compat-dplyr.R

* Update detect-alignment.Rmd

* Don't import entire tibble package

Co-authored-by: github-actions[bot] <github-actions[bot]@users.noreply.github.com>

Author: IndrajeetPatil

DESCRIPTION

@@ -34,6 +34,7 @@ Imports:
     rprojroot (>= 1.1),
     tibble (>= 1.4.2),
     tools,
+    vctrs (>= 0.4.1),
     withr (>= 1.0.0),
 Suggests: 
     data.tree (>= 0.1.6),

NAMESPACE

@@ -17,7 +17,6 @@ export(style_text)
 export(tidyverse_math_token_spacing)
 export(tidyverse_reindention)
 export(tidyverse_style)
-import(tibble)
 importFrom(magrittr,"%>%")
 importFrom(magrittr,or)
 importFrom(magrittr,set_names)
@@ -43,6 +42,7 @@ importFrom(rlang,is_installed)
 importFrom(rlang,seq2)
 importFrom(rlang,warn)
 importFrom(rlang,with_handlers)
+importFrom(tibble,tribble)
 importFrom(utils,capture.output)
 importFrom(utils,tail)
 importFrom(utils,write.table)

R/compat-dplyr.R

@@ -26,7 +26,7 @@ arrange_pos_id <- function(data) {
 
 bind_rows <- function(x, y = NULL, ...) {
   if (is.null(x) && is.null(y)) {
-    return(new_tibble(list()))
+    return(new_styler_df(list()))
   }
   if (is.null(x)) {
     if (inherits(y, "data.frame")) {
@@ -62,7 +62,7 @@ left_join <- function(x, y, by) {
 
   res <- merge(x, y, by.x = by_x, by.y = by_y, all.x = TRUE, sort = FALSE) %>%
     arrange_pos_id()
-  res <- new_tibble(res)
+  res <- new_styler_df(res)
   # dplyr::left_join set unknown list columns to NULL, merge sets them
   # to NA
   if (exists("child", res) && anyNA(res$child)) {

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)
-  new_tibble(res)
+  new_styler_df(res)
 }

R/nest.R

@@ -249,7 +249,7 @@ add_terminal_token_after <- function(pd_flat) {
     filter(terminal) %>%
     arrange_pos_id()
 
-  rhs <- new_tibble(
+  rhs <- new_styler_df(
     list(
       pos_id = terminals$pos_id,
       token_after = lead(terminals$token, default = "")
@@ -266,7 +266,7 @@ add_terminal_token_before <- function(pd_flat) {
     filter(terminal) %>%
     arrange_pos_id()
 
-  rhs <- new_tibble(
+  rhs <- new_styler_df(
     list(
       id = terminals$id,
       token_before = lag(terminals$token, default = "")

R/nested-to-tree.R

@@ -16,6 +16,7 @@ create_tree_from_pd_with_default_style_attributes <- function(pd,
                                                               structure_only = FALSE) {
   pd %>%
     create_node_from_nested_root(structure_only) %>%
+    # don't use `styler_df()` here; `vctrs::data_frame()` only accepts a vector, not a <Node/R6> object
     as.data.frame()
 }
 

R/parse.R

@@ -94,7 +94,7 @@ get_parse_data <- function(text, include_text = TRUE, ...) {
   # avoid https://bugs.r-project.org/bugzilla3/show_bug.cgi?id=16041
   parse_safely(text, keep.source = TRUE)
   parsed <- parse_safely(text, keep.source = TRUE)
-  pd <- as_tibble(
+  pd <- styler_df(
     utils::getParseData(parsed, includeText = include_text),
     .name_repair = "minimal"
   )
@@ -163,7 +163,7 @@ ensure_correct_txt <- function(pd, text) {
     by.y = "id",
     suffixes = c("", "parent")
   ) %>%
-    as_tibble(.name_repair = "minimal")
+    styler_df(.name_repair = "minimal")
 
   if (!lines_and_cols_match(new_text)) {
     abort(paste(

R/style-guides.R

@@ -315,7 +315,7 @@ tidyverse_style <- function(scope = "tokens",
 #' }
 #' set_line_break_before_curly_opening_style <- function() {
 #'   create_style_guide(
-#'     line_break = tibble::lst(set_line_break_before_curly_opening),
+#'     line_break = list(set_line_break_before_curly_opening),
 #'     style_guide_name = "some-style-guide",
 #'     style_guide_version = "some-version"
 #'   )

R/stylerignore.R

@@ -123,8 +123,8 @@ apply_stylerignore <- function(flattened_pd) {
     env_current$stylerignore[, colnames_required_apply_stylerignore],
     by.x = "pos_id", by.y = "first_pos_id_in_segment", all.x = TRUE,
     sort = FALSE
-  ) %>%
-    as_tibble()
+  )
+
   flattened_pd %>%
     stylerignore_consolidate_col("lag_newlines") %>%
     stylerignore_consolidate_col("lag_spaces") %>%

R/token-create.R

@@ -39,7 +39,7 @@ create_tokens <- function(tokens,
                           block = NA,
                           is_cached = FALSE) {
   len_text <- length(texts)
-  new_tibble(
+  new_styler_df(
     list(
       token = tokens,
       text = texts,