Running examples in 'DemographicTable-Ex.R' failed
The error most likely occurred in:

> ### Name: DemographicTable
> ### Title: Create Demographic Table
> ### Aliases: DemographicTable
> 
> ### ** Examples
> 
> DemographicTable(esoph)
a flextable object.
col_keys: `esoph`, `N=88` 
header has 1 row(s) 
body has 5 row(s) 
original dataset sample: 
                                                               esoph
1    ncases.\n\tmean±sd\n\tmedian±IQR\n\tSkewness; Shapiro-Wilk\n\tRange
2 ncontrols.\n\tmean±sd\n\tmedian±IQR\n\tSkewness; Shapiro-Wilk\n\tRange
3                              agegp: n (%).\n\t1\n\t2\n\t3\n\t4\n\t5\n\t6
4                                      alcgp: n (%).\n\t1\n\t2\n\t3\n\t4
5                                      tobgp: n (%).\n\t1\n\t2\n\t3\n\t4
                                                                      N=88
1                               \n2.3±2.8\n1.0±4.0\n2.2 <U+26A0>\n0.0~17.0
2                            \n11.1±12.7\n6.0±11.0\n1.9 <U+26A0>\n1.0~60.0
3 \n15 (17.0%)\n15 (17.0%)\n16 (18.2%)\n16 (18.2%)\n15 (17.0%)\n11 (12.5%)
4                         \n23 (26.1%)\n23 (26.1%)\n21 (23.9%)\n21 (23.9%)
5                         \n24 (27.3%)\n24 (27.3%)\n20 (22.7%)\n20 (22.7%)
> DemographicTable(ToothGrowth, groups = 'supp')
a flextable object.
col_keys: `ToothGrowth`, `N=60`, `supp
= OJ
N=30 (50.0%)`, `supp
= VC
N=30 (50.0%)`, `Significance
(by supp)
` 
header has 1 row(s) 
body has 2 row(s) 
original dataset sample: 
                                                    ToothGrowth
1  len.\n\tmean±sd\n\tmedian±IQR\n\tSkewness; Shapiro-Wilk\n\tRange
2 dose.\n\tmean±sd\n\tmedian±IQR\n\tSkewness; Shapiro-Wilk\n\tRange
                                            N=60
1 \n18.8±7.6\n19.2±12.2\n-0.1 <U+2713>\n4.2~33.9
2      \n1.2±0.6\n1.0±1.5\n0.4 <U+26A0>\n0.5~2.0
                        supp\n= OJ\nN=30 (50.0%)
1 \n20.7±6.6\n22.7±10.2\n-0.5 <U+26A0>\n8.2~30.9
2      \n1.2±0.6\n1.0±1.5\n0.4 <U+26A0>\n0.5~2.0
                       supp\n= VC\nN=30 (50.0%)      Significance\n(by supp)\n
1 \n17.0±8.3\n16.5±11.9\n0.3 <U+2713>\n4.2~33.9 0.064\nWilcoxon-\nMann-Whitney
2     \n1.2±0.6\n1.0±1.5\n0.4 <U+26A0>\n0.5~2.0 1.000\nWilcoxon-\nMann-Whitney
> DemographicTable(ToothGrowth, groups = 'supp', compare = FALSE)
a flextable object.
col_keys: `ToothGrowth`, `N=60`, `supp
= OJ
N=30 (50.0%)`, `supp
= VC
N=30 (50.0%)` 
header has 1 row(s) 
body has 2 row(s) 
original dataset sample: 
                                                    ToothGrowth
1  len.\n\tmean±sd\n\tmedian±IQR\n\tSkewness; Shapiro-Wilk\n\tRange
2 dose.\n\tmean±sd\n\tmedian±IQR\n\tSkewness; Shapiro-Wilk\n\tRange
                                            N=60
1 \n18.8±7.6\n19.2±12.2\n-0.1 <U+2713>\n4.2~33.9
2      \n1.2±0.6\n1.0±1.5\n0.4 <U+26A0>\n0.5~2.0
                        supp\n= OJ\nN=30 (50.0%)
1 \n20.7±6.6\n22.7±10.2\n-0.5 <U+26A0>\n8.2~30.9
2      \n1.2±0.6\n1.0±1.5\n0.4 <U+26A0>\n0.5~2.0
                       supp\n= VC\nN=30 (50.0%)
1 \n17.0±8.3\n16.5±11.9\n0.3 <U+2713>\n4.2~33.9
2     \n1.2±0.6\n1.0±1.5\n0.4 <U+26A0>\n0.5~2.0
> DemographicTable(warpbreaks, groups = c('wool', 'tension'))
a flextable object.
col_keys: `warpbreaks`, `N=54`, `wool
= A
N=27 (50.0%)`, `wool
= B
N=27 (50.0%)`, `Significance
(by wool)
`, `tension
= L
N=18 (33.3%)`, `tension
= M
N=18 (33.3%)`, `tension
= H
N=18 (33.3%)`, `Significance
(by tension)
` 
header has 1 row(s) 
body has 1 row(s) 
original dataset sample: 
                                                       warpbreaks
1 breaks.\n\tmean±sd\n\tmedian±IQR\n\tSkewness; Shapiro-Wilk\n\tRange
                                             N=54
1 \n28.1±13.2\n26.0±15.8\n1.2 <U+26A0>\n10.0~70.0
                          wool\n= A\nN=27 (50.0%)
1 \n31.0±15.9\n26.0±16.5\n1.0 <U+26A0>\n10.0~70.0
                         wool\n= B\nN=27 (50.0%)      Significance\n(by wool)\n
1 \n25.3±9.3\n24.0±11.0\n0.6 <U+26A0>\n13.0~44.0 0.253\nWilcoxon-\nMann-Whitney
                       tension\n= L\nN=18 (33.3%)
1 \n36.4±16.4\n29.5±23.2\n0.7 <U+2713>\n14.0~70.0
                      tension\n= M\nN=18 (33.3%)
1 \n26.4±9.1\n27.0±15.5\n0.2 <U+2713>\n12.0~42.0
                      tension\n= H\nN=18 (33.3%)
1 \n21.7±8.4\n20.5±10.2\n0.9 <U+2713>\n10.0~43.0
                                                       Significance\n(by tension)\n
1 <U+2605> 0.002 (L vs. H)\n0.115 (M vs. H)\n<U+2605> 0.033 (M vs. L)\nTwo-Sample t
> 
> # write to Word file
> library(flextable)
> library(officer)
> x = read_docx() |> body_add_flextable(value = as_flextable(DemographicTable(esoph)))
Error: unexpected '>' in "x = read_docx() |>"
Execution halted