avoid dplyr

elong0527 · Dec 2, 2023 · 3cca757 · 3cca757
1 parent a34da09
commit 3cca757
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/reactable2.R b/R/reactable2.R
@@ -78,14 +78,14 @@ reactable_to_df <- function(x){
  for(i in seq_along(columns)){
  if(! columns[[i]]$id %in% ".details"){
  if(is.null(columns[[i]]$show)){
- tbl2[[i]] <- unlist(columns[[i]])
+ tbl2[[i]] <- unlist(columns[[i]][c("id", "name")])
  }
  }
  }
- tbl2 <- dplyr::bind_rows(tbl2)
+ tbl2 <- data.frame(do.call(rbind, tbl2))
 
  # output
- tbl <- data.frame(tbl1[, tbl2$id])
+ tbl <- data.frame(tbl1[, tbl2[["id"]]])
 
  attr(tbl, "column_header") <- paste(tbl2$name, collapse = "|")