See the span_split argument passed to stable() and then tab_spanners().
st_span_split(x, ..., split = TRUE)an stobject
passed to colsplit()
passed to colsplit(), if split is FALSE, then
an error is generated
There can only be one span_split per table; if st_span_split is
called more than once in a pipeline, a warning will be issued on every
call after the first one and only the latest span_split data will be
retained in the table.
library(dplyr)
file <- system.file("datasets", "with-dots.RDS", package = "pmtables")
data <- readRDS(file)
st_new(data) %>% st_span_split('.') %>% st_make()
#> [1] "\\setlength{\\tabcolsep}{5pt} "
#> [2] "\\begin{threeparttable}"
#> [3] "\\renewcommand{\\arraystretch}{1.3}"
#> [4] "\\begin{tabular}[h]{lllllll}"
#> [5] "\\hline"
#> [6] "\\multicolumn{1}{c}{} & \\multicolumn{3}{c}{Normal} & \\multicolumn{3}{c}{ESRD} \\\\"
#> [7] "\\cmidrule(lr){2-4}"
#> [8] "\\cmidrule(lr){5-7}"
#> [9] "STUDY & WT & CRCL & ALB & WT & CRCL & ALB \\\\"
#> [10] "\\hline"
#> [11] "12-DEMO-001 & 71.4 & 104 & 4.20 & 78.5 & 26.0 & 2.10 \\\\"
#> [12] "12-DEMO-001 & 81.7 & 104 & 3.83 & 89.9 & 26.1 & 1.92 \\\\"
#> [13] "12-DEMO-001 & 89.4 & 122 & 4.63 & 98.4 & 30.6 & 2.32 \\\\"
#> [14] "12-DEMO-001 & 94.0 & 93.2 & 4.94 & 103 & 23.3 & 2.47 \\\\"
#> [15] "12-DEMO-001 & 67.9 & 100 & 4.25 & 74.7 & 25.1 & 2.13 \\\\"
#> [16] "12-DEMO-001 & 76.6 & 99.2 & 4.54 & 84.2 & 24.8 & 2.27 \\\\"
#> [17] "12-DEMO-002 & 77.6 & 106 & 4.31 & 85.4 & 26.4 & 2.16 \\\\"
#> [18] "12-DEMO-002 & 61.3 & 113 & 4.04 & 67.4 & 28.2 & 2.02 \\\\"
#> [19] "12-DEMO-002 & 71.2 & 106 & 4.63 & 78.3 & 26.4 & 2.32 \\\\"
#> [20] "12-DEMO-002 & 74.1 & 112 & 4.44 & 81.5 & 28.0 & 2.22 \\\\"
#> [21] "12-DEMO-002 & 71.6 & 98.9 & 4.49 & 78.8 & 24.7 & 2.25 \\\\"
#> [22] "12-DEMO-002 & 72.4 & 105 & 3.89 & 79.6 & 26.3 & 1.94 \\\\"
#> [23] "12-DEMO-002 & 73.6 & 103 & 4.52 & 81.0 & 25.8 & 2.26 \\\\"
#> [24] "\\hline"
#> [25] "\\end{tabular}"
#> [26] "\\end{threeparttable}"
#> attr(,"class")
#> [1] "stable"