时间戳

首页 > 解决方案 > 防止数据表列宽改变大小闪亮

r - 防止数据表列宽改变大小闪亮

问题描述

我有一个具有正确列宽的数据表，每次单击“添加”按钮时都会更新。当添加一个额外的行时，它会自动调整大小以适应整个主面板，尽管文本非常适合。

这是我的 REPREX：

library(shiny)
library(DT)

this_table = data.frame(bins = c(30, 50), cb = c(T, F))

ui <- fluidPage(
    
    sidebarLayout(
        sidebarPanel(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30),
            checkboxInput("cb", "T/F"),
            actionButton("add_btn", "Add")
        ),
        
        mainPanel(
            DTOutput("shiny_table")
        )
    )
)

server <- function(input, output) {
    
    this_table <- reactiveVal(this_table)
    
    observeEvent(input$add_btn, {
        t = rbind(data.frame(bins = input$bins,
                             cb = input$cb), this_table())
        this_table(t)
    })
    

    output$shiny_table <- renderDT({
        datatable(this_table(),
                  rownames = FALSE,
                  options = list(
                      autoWidth = TRUE,
                      columnDefs = list(list(width = "40%", targets = "_all"), list(className = "dt-center", targets = "_all")),
                      pageLength = 23, info = FALSE, lengthMenu = 30,
                      paging = FALSE,
                      #searching = FALSE,
                      lengthChange = FALSE,
                      ordering = FALSE ))
    })
}

shinyApp(ui = ui, server = server)

您如何防止这种情况发生以使列宽保持不变？

标签： rshinydt

解决方案

这很奇怪。width添加行时，该选项似乎消失了。您可以将其包裹DTOutput在div具有给定宽度的元素中，并将margin: auto其设置为居中：

mainPanel(
  div(
    style = "width: 300px; margin: auto;",
    DTOutput("shiny_table")
  )
)

推荐阅读