Как добавить сноску в текст pack_rows?

Question

Я пытаюсь добавить сноску в таблицу со строкой, которая занимает несколько столбцов, используя knitr + kableextra + pack_rows

Поиск решений Я пришел пустым, кроме решений типа «убедитесь, что вы используете escape = F». Кроме того, это не имеет значения, если я вяжу в PDF или HTML. Кажется, что обе вставляют строку сноски, но неясно, правильно ли она выбрана или что-то еще.

Пример минимальной воспроизводимости ...

---
title: "Footnote Test"
output:
  html_document: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)

library(tidyverse)
library(knitr)
library(kableExtra)
```

```{r cars}

dt <- mtcars[1:5, 1:6]

```

## Footnote Example

This works just fine!

```{r cars-footnote}

dt_footnote <- dt
names(dt_footnote)[2] <- paste0(names(dt_footnote)[2], 
                                footnote_marker_symbol(1))
row.names(dt_footnote)[4] <- paste0(row.names(dt_footnote)[4], 
                                footnote_marker_alphabet(1))
kable(dt_footnote, align = "c", 
          # Remember this escape = F        
      escape = F) %>%    
  kable_styling(full_width = F) %>%
  footnote(alphabet = "Footnote A; ",
           symbol = "Footnote Symbol 1; ",
           alphabet_title = "Type II: ", symbol_title = "Type III: ",
           footnote_as_chunk = T)

```

## Footnote on Span

```{r cars-footnote-scan}

dt_span <- dt %>% 
  arrange(cyl) %>%
  select(cyl, everything())    

prlabel <- paste0("Six-Cylinder",
                  footnote_marker_alphabet(1))


  kable(dt_span, align = "c", escape = FALSE) %>%    
    kable_styling(full_width = FALSE) %>%    
    pack_rows(prlabel, 2, 4) %>%
    footnote(alphabet = "Footnote A", footnote_as_chunk = T, escape = FALSE)
```

Судя по выводу, символ сноски добавляется в правильном месте. Я не могу сказать, является ли это ошибкой или есть аргумент, который мне нужно установить.

Любая помощь будет принята с благодарностью.