`t1kable()` gives escaped HTML when unit are present

[billdenney]

Note the < and related text in the reprex below:

library(table1)
#> 
#> Attaching package: 'table1'
#> The following objects are masked from 'package:base':
#> 
#>     units, units<-

f <- function(x, n, ...) factor(sample(x, n, replace=T, ...), levels=x)
set.seed(427)

n <- 146
dat <- data.frame(id=1:n)
dat$treat <- f(c("Placebo", "Treated"), n, prob=c(1, 2)) # 2:1 randomization
dat$age   <- sample(18:65, n, replace=TRUE)
dat$sex   <- f(c("Female", "Male"), n, prob=c(.6, .4))  # 60% female
dat$wt    <- round(exp(rnorm(n, log(70), 0.23)), 1)

# Add some missing data
dat$wt[sample.int(n, 5)] <- NA

label(dat$age)   <- "Age"
label(dat$sex)   <- "Sex"
label(dat$wt)    <- "Weight"
label(dat$treat) <- "Treatment Group"

units(dat$age)   <- "years"
units(dat$wt)    <- "kg"

x <- table1(~ age + sex | treat, data=dat)
y <- t1kable(x)
cat(as.character(y))
#> <table>
#>  <thead>
#>   <tr>
#>    <th style="text-align:left;font-weight: bold;">   </th>
#>    <th style="text-align:center;font-weight: bold;"> Placebo<br><span class="stratn">(N=52)</span> </th>
#>    <th style="text-align:center;font-weight: bold;"> Treated<br><span class="stratn">(N=94)</span> </th>
#>    <th style="text-align:center;font-weight: bold;"> Overall<br><span class="stratn">(N=146)</span> </th>
#>   </tr>
#>  </thead>
#> <tbody>
#>   <tr grouplength="2"><td colspan="4" style="border-bottom: 1px solid;"><strong>Age&lt;span class='varunits'&gt; (years)&lt;/span&gt;</strong></td></tr>
#> <tr>
#>    <td style="text-align:left;padding-left: 2em;" indentlevel="1"> Mean (SD) </td>
#>    <td style="text-align:center;"> 39.2 (14.2) </td>
#>    <td style="text-align:center;"> 40.1 (13.3) </td>
#>    <td style="text-align:center;"> 39.8 (13.6) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left;padding-left: 2em;" indentlevel="1"> Median [Min, Max] </td>
#>    <td style="text-align:center;"> 37.5 [18.0, 65.0] </td>
#>    <td style="text-align:center;"> 39.5 [18.0, 65.0] </td>
#>    <td style="text-align:center;"> 39.0 [18.0, 65.0] </td>
#>   </tr>
#>   <tr grouplength="2"><td colspan="4" style="border-bottom: 1px solid;"><strong>Sex</strong></td></tr>
#> <tr>
#>    <td style="text-align:left;padding-left: 2em;" indentlevel="1"> Female </td>
#>    <td style="text-align:center;"> 34 (65.4%) </td>
#>    <td style="text-align:center;"> 53 (56.4%) </td>
#>    <td style="text-align:center;"> 87 (59.6%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left;padding-left: 2em;" indentlevel="1"> Male </td>
#>    <td style="text-align:center;"> 18 (34.6%) </td>
#>    <td style="text-align:center;"> 41 (43.6%) </td>
#>    <td style="text-align:center;"> 59 (40.4%) </td>
#>   </tr>
#> </tbody>
#> </table>

^{Created on 2026-01-04 with reprex v2.1.1}

[billdenney]

This appears to have been introduced in version 1.5.1, and it is visible in the LaTeX vignette at the top of page 3: https://cran.r-project.org/web/packages/table1/vignettes/table1-latex.pdf