Put footnotes on the same line with fmt_markdown() in Quarto

[olivroy]

Summary

It seems that using a span instead of div seems to work!!

Sorry about the noise. I also think it is not necessary to keep the gt_from_md class?

#1605 (comment)

Related GitHub Issues and PRs

Fixes #1773

Checklist

• I understand and agree to the Code of Conduct.
• I have listed any major changes in the NEWS.
• I have added testthat unit tests to tests/testthat for any new functionality.

[olivroy]

I am using the following script to compare diff

#
gt_tbl <- mtcars[1:2, 1:2] |>
  gt::gt() |>
  gt::cols_label(mpg = gt::md("**MPG**")) |>
  gt::tab_footnote(
    gt::md("_Adding footnote_"),
    locations = gt::cells_column_labels(columns = gt::everything())
  )
# inside Quarto
html_code_quarto <- withr::with_envvar(c("QUARTO_BIN_PATH" = "true"), gt:::render_as_html(gt_tbl))
# out of Quarto
html_code <- withr::with_envvar(c("QUARTO_BIN_PATH" = ""), gt:::render_as_html(gt_tbl))

waldo::compare(html_code, html_code_quarto, x_arg = "html", y_arg = "quarto")

html_file <- withr::local_tempfile(lines = html_code, pattern = "html")
quarto_file <- withr::local_tempfile(lines = html_code_quarto, pattern = "quarto")
diffviewer::visual_diff(
  html_file,
  quarto_file
)

The diff seems good! i.e. spans are replaced by their base64 encoding equivalent.

The following Qmd doc renders well too

---
title: "Test"
format: html
---

```{r}
#| echo: false
#| message: false
devtools::load_all()
exibble %>%
    dplyr::select(num, char, fctr) %>%
    dplyr::slice_head(n  = 5) %>%
    gt() %>%
    fmt_markdown(num) %>%
    tab_footnote(
      md("Problem because num row 1 is fmt_markdown() + also the footnote is wrapped in md."),
      locations = cells_body("num", 1)
    ) %>%
    tab_footnote(
      "A problem because fctr is labelled with md",
      locations = cells_column_labels("fctr")
    ) %>%
    tab_footnote(
      "Not a problem",
      locations = cells_column_labels("char")
    ) %>%
    cols_label(fctr = md("**Factor**")) %>%
    tab_header(md("**Title**")) %>% 
    tab_spanner(md("**Problem**"), c(2, 3))
```

[rich-iannone]

LGTM!