Ошибка в datatable с заголовком и исправленными именами

Question

Я пытаюсь создать datatable с фиксированным заголовком, фиксированными именами и заголовком. Это код, который я использую:

library(DT)
library(shiny)


ui <- basicPage(
  DT::dataTableOutput("mytable")
)

server <- function(input, output) {
  m = as.data.frame(round(matrix(rnorm(10000), 20), 5))
  data<-datatable(
    m, extensions =  c('FixedColumns',"FixedHeader"),
    caption ='long title',
    options = list(
      scrollX = TRUE, scrollY = 300,
      paging=F,
      fixedColumns = list(leftColumns = 1)
    ))
  
  output$mytable = DT::renderDataTable({
    data
  })
}

shinyApp(ui, server)

При запуске кода вы можете видеть, что заголовок заставляет первый столбец занять новую строку. Я пробовал использовать этот код:

 caption = htmltools::tags$caption(
      style = 'caption-side: top; text-align: center;',   
      'long title'
    )

Он работал, когда сторона заголовка была установлена ​​внизу, но не вверху

Любая идея, как я могу сохранить сторону заголовка: вверх и сделать это работа

Благодарю за вашу помощь

Спасибо

Answer 1

Не полный ответ, но ...

Проблема вызвана fixedColumns = list(leftColumns = 1). Закомментируйте это, и таблица отобразится правильно. Также я заметил, что «длинный заголовок» появляется в заголовке, как только отображается таблица. "title", непосредственно под ним, появляется только тогда, когда таблица заполнена. Это может быть причиной нежелательного смещения.

FixedColumns кажется проблемой для c DT расширения. См., Например, здесь .

Я понимаю, почему вам нужен фиксированный столбец. Похоже, что ошибка в расширении, а не в самом DT. Извините, я ничем не могу больше помочь.