r-过滤因子列时，停止闪亮DT列宽跳跃

Question

本例中的Species列是factor，DT使用类似selectize的小部件对其进行了帮助过滤。唯一令人烦恼的是点击过滤框会使列宽跳跃。有人知道如何抑制这种行为吗？

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))
}
)