如何在gt样式函数中定位gtsummary::as_gt()生成的列？

我用gtsummary::as_gt()把汇总表转换成gt对象后，想用gt包的cols_width()、tab_style()这类函数设置样式，但需要明确表格的列命名规则。

但as_gt()的文档里并没有说明转换后的列名规则。我尝试定位tbl_regression()生成的Characteristic列，先后猜了variable、var_label作为列名，都没法生效。

比如下面的代码无法改变目标列的宽度：

---
title: "Untitled"
author: "test"
date: "`r Sys.Date()`"
output:
  pdf_document:
    keep_tex: true
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(gt)

library(gtsummary)
data(trial)
attr(trial$stage, "label") <- "Treatment stage [This is a long explanation that cannot go anywhere else.]"
m1 <- glm(response ~ age + stage, trial, family = binomial)
m1 %>%
  tbl_regression(exponentiate = TRUE) |>  
  as_gt() |> 
  cols_width(variable ~ px(100)) |> 
  as_latex()

用`cols_width(everything() ~ px(100))`确实能生效，但我希望精准定位特定列来设置。

**说明**：
之前有个修改LaTeX代码的方法是可行的（代码如下），但我更想在`gt`框架内找到更优雅的解决方式：
```r
# ... |>
  as_latex() -> latex_table

latex_table[[1]] <- sub(
  "\\begin{longtable}{lccc}", 
  "\\begin{longtable}{p{4.5cm}ccc}", 
  latex_table[[1]], 
  fixed = TRUE
)

latex_table

内容的提问来源于stack exchange，提问作者Lukas D. Sauer