Блог

Есть ли способ исправить заголовки, окно поиска и кнопки от прокрутки

Прямо сейчас все это движется вниз, так что можем ли мы это исправить

 library(shiny)
library(DT)

ui <- fluidPage(
  DT::dataTableOutput("test")
)

server <- function(input, output, session) {
  
  output$test <- DT::renderDataTable({
    datatable(
      iris,
      extensions = c('Buttons', 'FixedColumns'), 
      options = list(
        dom = 'Bfrt',
        pageLength = nrow(iris),
        buttons = c('excel', 'csv'),
        scrollX = TRUE
      )
    )
  }, server = FALSE)
  
}

shinyApp(ui, server)