---
title: "nicer tables"
format: docx
editor: visual
---

## Tables

```{r}
library(gtsummary)
library(dplyr)
packageVersion("gtsummary")

trial%>%
  select(age, stage, grade)%>%
  tbl_summary()%>%
  modify_table_body(
    ~.x %>% 
      
      # add your variable
      rbind(
        tibble(
          variable="Demographics",
          var_type=NA,
          var_label = "Demographics",
          row_type="label",
          label="Demographics",
          stat_0= NA))%>% # expand the components of the tibble as needed if you have more columns
      
      # can add another one
      rbind(
        tibble(
          variable="Tumor characteristics",
          var_type=NA,
          var_label = "Tumor characteristics",
          row_type="label",
          label="Tumor characteristics",
          stat_0= NA))%>%  
      
      # specify the position you want these in
      
      arrange(factor(variable, levels=c("Demographics",
                                        "age",
                                        "Tumor characteristics",
                                        "stage",
                                        "grade"))))%>%
  
  # and you can then indent the actual variables
  modify_column_indent(columns=label, rows=variable%in%c("age",
                                                         "stage",
                                                         "grade"))%>%
  
  # and double indent their levels
  modify_column_indent(columns=label, rows= (variable%in%c("stage",
                                                           "grade") 
                                             & row_type=="level"),
                       double_indent=T)

```