过滤因子列时停止 Shiny DT 列宽跳跃

Question

本例中的 Species 列是因子，DT 使用类似选择的小部件对其进行过滤很有帮助。唯一令人烦恼的是单击过滤器框会使列宽跳跃。有谁知道如何抑制这种行为？

require(shiny)
require(DT)

shinyApp(
  ui = fluidPage(DTOutput("data_tbl")), 
  server = function(input, output, session) {
    output$data_tbl <- renderDT(filter = "top", iris, 
                                options = list(autoWidth = FALSE, bAutoWidth = FALSE))
  }
)

Answer 1

autoWidth=TRUE 将解决您的问题。

shinyApp(
  ui = fluidPage(DTOutput("data_tbl")), 
  server = function(input, output, session) {
    output$data_tbl <- renderDT(iris, filter = "top", 
                                options = list(autoWidth = TRUE, bAutoWidth = FALSE))
  }
)