“下一步”按钮使用 Bootstrap 显示为 R Shiny DataTable 的文本
Posted
技术标签:
【中文标题】“下一步”按钮使用 Bootstrap 显示为 R Shiny DataTable 的文本【英文标题】:"next" button showing as text for R Shiny DataTable using Bootstrap 【发布时间】:2021-12-01 10:03:31 【问题描述】:通常,Shiny DT 会显示按钮以查看下 X 条记录。当指定style="bootstrap"
时,这些按钮会变成文本“previous12345...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,
))
)
【问题讨论】:
bs4Dash
包使用 bootstrap 4,我认为DT
仅支持 Bootstrap 3。在 DT github repo 上请求 bs4 支持更像是一个功能请求,而不是我们在这里使用一些技巧来修复。
【参考方案1】:
在DT::renderDataTable()
下指定style="bootstrap4"
代替style="bootstrap"
可解决此问题
【讨论】:
以上是关于“下一步”按钮使用 Bootstrap 显示为 R Shiny DataTable 的文本的主要内容,如果未能解决你的问题,请参考以下文章