“下一步”按钮使用 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 的文本的主要内容,如果未能解决你的问题,请参考以下文章

添加“下一步”按钮以显示下一个表格实体

如何在不完成 Bootstrap 中的一个步骤的情况下禁用进入下一步?

在 jqgrid 下一步按钮单击时,未填充数据

单击下一步按钮如何更改图像

winform 如何实现上一步下一步

如何使用“下一步”按钮选择引导选项卡。我遵循了其他答案,但没有工作