How to modify variable labels in gtsummary table

As recommended in the tutorial for gtsummary‘s tbl_regression function, I am using the labelled package to assign attribute labels to my regression variables. However, when my regression formula includes a quadratic term, the resulting table includes the same variable label twice:

library(gtsummary)
library(labelled)
library(tidyverse)

df <- as_tibble(mtcars)

var_label(df) <- list( disp = "Displacement", vs = "Engine type")

c("disp", "disp + I(disp^2)") %>% 
  map(
    ~ paste("vs", .x, sep = " ~ ") %>% 
      as.formula() %>% 
      glm(data = df,
          family = binomial(link = "logit")) %>% 
      tbl_regression(exponentiate = TRUE)) %>% 
  tbl_merge()

Is there a way to modify the label for the quadratic term in this case?

>Solution :

If you assign the label inside the tbl_regression() function, you’ll see what you want to get.

library(gtsummary)

c("disp", "disp + I(disp^2)") %>% 
  purrr::map(
    ~ paste("vs", .x, sep = " ~ ") %>% 
      as.formula() %>% 
      glm(data = mtcars, family = binomial(link = "logit")) %>% 
      tbl_regression(
        exponentiate = TRUE,
        label = list(
          disp = "Displacement",
          `I(disp^2)` = "Displacement^2"
        )
      )
  ) %>%
  tbl_merge() %>%
  as_kable()
#> ✖ `I(disp^2)` terms have not been found in `x`.

^{Created on 2022-09-19 with reprex v2.0.2}