Как вставить HTML в таблицу KableExtra

Question

Можно ли добавить HTML-код Div в код Kable: Воспроизводимый пример:

kable(head(iris))

Создайте вывод так:

` <table>
  <thead>
  <tr>
   <th style="text-align:right;"> Sepal.Length </th>
   <th style="text-align:right;"> Sepal.Width </th>
   <th style="text-align:right;"> Petal.Length </th>
   <th style="text-align:right;"> Petal.Width </th>
   <th style="text-align:left;"> Species </th>
  </tr>
 </thead>
 <tbody>
  <tr>
   <td style="text-align:right;"> 5.1 </td>
   <td style="text-align:right;"> 3.5 </td>
   <td style="text-align:right;"> 1.4 </td>
   <td style="text-align:right;"> 0.2 </td>
   <td style="text-align:left;"> setosa </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 4.9 </td>
   <td style="text-align:right;"> 3.0 </td>
   <td style="text-align:right;"> 1.4 </td>
   <td style="text-align:right;"> 0.2 </td>
   <td style="text-align:left;"> setosa </td>
  </tr>
  </tbody>
  </table>`

я хочу добавить <div class = "alter_table"> в последнем ряду для последнего столбца

  `<div class = "alter_table"> <td style="text-align:left;"> setosa </td></div>
  <div class = "alter_table"> <td style="text-align:left;"> setosa </td></div>`

Я хочу создать автоматически, используя R!

Answer 1

Работать с таблицами HTML всегда легко, и вы знаете, что можете делать что угодно, если вы знаете, как использовать xml2,:)

library(kableExtra)
library(xml2)

k_xml <- kable(iris[1:2,]) %>%
  kable_as_xml()

k_xml %>%
  xml_child(2) %>%  # Go to <tbody> tag
  xml_child(2) %>%  # 2nd row of <tbody>
  xml_child(5) %>%  # 5th <td>
  xml_set_attr("class", "alter_table") # Add an attribute 

xml_as_kable(k_xml)

Подробности смотрите на слайде моего семинара rstudio:: conf: https://arm.rbind.io/slides/extend.html

---

Обновление: если вы хотите 2-й столбец, вам нужно немного XPATH. Используя пример выше:

library(kableExtra)
library(xml2)

k_xml <- kable(iris[1:2,]) %>%
  kable_as_xml()

k_xml %>%
  xml_child(2) %>%  # Go to <tbody> tag
  xml_find_all("//tr/td[2]") %>%  # Find all 2nd td of tr rows
  xml_set_attr("class", "alter_table") # Add an attribute 

xml_as_kable(k_xml)