Problem with wrap_table() when using a gt table with footnotes coming from gtsummary

[ABohynDOE]

I tried to follow the examples presented in the release notes of patchwork 1.3.0 on the tidyverse blog, however I get an error when using a gt table coming from gtsummary instead of a gt table built from a data frame.

library(patchwork)
library(ggplot2)
library(gtsummary)

p1 <- ggplot(airquality) +
  geom_line(aes(x = Day, y = Temp, colour = month.name[Month])) +
  labs(colour = "Month")

fit <- lm(Temp ~ Day + Month, data = airquality)
tbl_fit <- tbl_regression(fit) |> as_gt()

p1 + wrap_table(tbl_fit, space = "free_y")
#> Error in apply_footnotes_method[[context]](boxh$column_label[boxh$var == : attempt to apply non-function

I strongly suspect that the error comes from the processing of footnotes because when the footnote is removed, there is no error anymore.

library(patchwork)
library(ggplot2)
library(gtsummary)

p1 <- ggplot(airquality) +
  geom_line(aes(x = Day, y = Temp, colour = month.name[Month])) +
  labs(colour = "Month")

fit <- lm(Temp ~ Day + Month, data = airquality)
tbl_fit <- tbl_regression(fit) |> 
  modify_footnote(everything() ~ NA, abbreviation = TRUE) |>
  as_gt()
  

p1 + wrap_table(tbl_fit, space = "free_y")

^{Created on 2024-09-26 with reprex v2.1.0}