Заголовки нескольких таблиц в DT in R

Question

Я следую приведенному ниже примеру: https://rstudio.github.io/DT/

Я могу получить заголовок над таблицей с помощью:

library(DT)

datatable(
  head(iris),
  caption = 'Table 1: This is a simple caption for the table.'
)

И заголовок под таблицей с помощью:

library(DT)

datatable(
  head(iris),
  caption = htmltools::tags$caption(
    style = 'caption-side: bottom; text-align: center;',
    'Table 2: ', htmltools::em('This is a simple caption for the table.')
  )
)

Как я могу иметь две подписи (сверху и снизу) одновременно?

Ура, Кейт

Answer 1

Вы можете сделать следующее:

library(DT)

js <- c(
  "function(settings){",
  "  var datatable = settings.oInstance.api();",
  "  var table = datatable.table().node();",
  "  var caption = 'ANOTHER CAPTION'",
  "  $(table).append('<caption style=\"caption-side: bottom\">' + caption + '</caption>');",
  "}"
)

datatable(
  head(iris),
  options = list(
    drawCallback = JS(js)
  ),
  caption = 'Table 1: This is a simple caption for the table.'
)