#javascript #r #bootstrap-4 #shiny #datatables
Вопрос:
Обычно в Shiny DT будут видны кнопки для просмотра следующего количества записей X. При указании style="bootstrap"
эти кнопки превращаются в текст «предыдущее 12345…8Next», хотя они все еще являются кликабельными ссылками. Что я могу сделать, чтобы правильно отобразить кнопки?
if (interactive()) {
library(shiny)
library(DT)
library(bs4Dash)
# width dataframe as input
shinyApp(
ui = dashboardPage(
header = dashboardHeader(),
sidebar = dashboardSidebar(),
body = dashboardBody(
fluidRow(column(12, DT::dataTableOutput('mytable')))
),
footer = dashboardFooter()
),
server = function(input, output) {
output$mytable <- DT::renderDataTable(iris,
#extensions = "FixedHeader",
style="bootstrap",
options = list(
dom = 'Bfrtip',
lengthMenu = c(50, 100),
pageLength = 20,
scrollX=TRUE,
autoWidth = TRUE,
paging=TRUE,
searching=FALSE,
ordering=TRUE
#fixedHeader = TRUE,
))
}
)
}
Комментарии:
1.
bs4Dash
пакет использует загрузочную версию 4, и я думаюDT
, что поддерживает только загрузочную версию 3. Это скорее запрос функции в репозитории DT github, чтобы запросить поддержку bs4, чем мы используем некоторые приемы для исправления здесь.
Ответ №1:
указание style="bootstrap4"
вместо style="bootstrap"
» под DT::renderDataTable()
» решает эту проблему