如何在 R Shiny Report 中为数据表设置自动列宽

如何解决如何在 R Shiny Report 中为数据表设置自动列宽

我无法在作为闪亮仪表板一部分的数据表中设置自动列宽。

它出现在多个行中，例如（一行中的“Apr-”，另一行中的“18”；类似地，一行中出现“Banking”，另一行中出现“Products”）

我正在使用以下脚本，但无法正常工作。

谁能帮我解决这个问题？

output$Tabledt = DT::renderDataTable({datatable(table1(),rownames = FALSE,plugins = "ellipsis",options = list(autoWidth = TRUE,columnDefs = list(list(width = '200px',targets = c(1))))) %>%
          formatRound(columns = c(2:73),digits = 2)
          })
    }

根据要求在下面给出了一个例子。

数据框：

TableA = data.frame('Description' = c('Marketing & Communications','Corp Development & Strategy','COG Technology Workplace'),'Test Lengthy Column header' = c(1:3),'Test Lengthy Column header' = c(1:3))

服务器：

server = function(input,output,session) {

    output$Tabledt = DT::renderDataTable({
    datatable(TableA[],targets = c(1))))) %>%
      formatRound(columns = c(2),digits = 2)
  })
  
    output$mainpanel = renderUI({tabsetPanel(tabPanel("Report",value = 'tab1',DT::dataTableOutput("Tabledt")))})

}

界面：

library(shiny)
ui = shinyUI(
  fluidPage(
    mainPanel(uIoUtput("mainpanel"))
  )
)

应用：

shinyApp(ui = ui,server = server)

在上面的例子中，不知何故，值列标题是自动拟合的，但不是第一列。在我的真实世界场景中，所有列宽都没有自动调整。不知道为什么。