combining two etables with rbind not working

General
1

I am trying to combining two tables below but not working as expected , not showing any error but tables are not joining.

library(expss)
library(dplyr)

df <- mtcars
df$vs <- 1
N_row <- 3
banner1 <- list(df$vs)

t1 <- cro_cpct(df$qsec,banner1)
t1 = capture.output(t1)
t1 = c(t1[1:(N_row + 3)], "", stringr::str_pad("...", 
                                              nchar(t1[1]), "both"), "", t1[(length(t1) - 
                                                                                       N_row):length(t1)])
t1 %>% paste(collapse = "\n") %>% cat()


Min <- function(x) min_col(x, na.rm = TRUE)
Max <- function(x) max_col(x, na.rm = TRUE)
t2 <- cross_fun(df, df$qsec, col_vars = banner1, 
                      fun = combine_functions(Max = Max, Min = Min, `Valid N` = valid_n))

t_all <- list(t1, t2)
t_all <- rbind(t_all[[1]], "", t_all[[2]])

required output should be look like

image

2

This topic was automatically closed 42 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.