我无法在 R Shiny 中设置数据表列宽

Question

我正在尝试在数据表中显示我的项目数据，但有些项目的描述字段中有一些非常长的字符串，因此整个数据表变得非常宽。我想以某种方式缩小整个事情，但似乎没有任何效果。我已经尝试过使用它：

div(DT::dataTableOutput("tableoutput"), style = "font_size: 75%; width: 75%")

还尝试在主面板中添加width = "XXXpx"，但表格仍然太宽。我想知道是否有办法以某种方式包装长字符串或设置列宽？

这是给我带来麻烦的代码： 界面

mainPanel(
      verbatimTextOutput("textoutput"),
      div(DT::dataTableOutput("tableoutput"), style = "font_size: 75%; width: 75%")

    )

服务器

server <- function(input, output, session) {
 observeEvent(input$selectinput, {
 selected_mod <- as.numeric(str_extract(input$selectinput, "(?<=\\]\\[)(\\d+)"))
    temp <- rvalues$fields[rvalues$fields$mod_id == selected_mod,]
    temp$mod_id = NULL
    temp <- temp[, basic_score:=as.numeric(basic_score)]
    temp$condition <- ifelse(as.numeric(temp$basic_score != 0), 1, 0)
    output$tableoutput <- DT::renderDataTable(
      DT::datatable(temp, options = list(paging = FALSE,
                                         searching = FALSE,
                                         columnDefs = list(
                                           list(targets = 6,visible = FALSE)
                                           )))
      %>% formatStyle(
        'basic_score', 'condition',
        backgroundColor = styleEqual(c(0, 1), c('red', 'green'))
      )
})
}

Answer 1

您可以在option= 中包含一些参数来设置宽度并进行其他更改。

例如，以下代码不包括第 6 列，并将 mtcars 的第 1 列和第 3 列的宽度设置为 50 像素

     DT::datatable(mtcars, options = list(
      autoWidth = TRUE,
      columnDefs = list(list(targets = 6,visible = FALSE),
         list(width = '50px', targets = c(1, 3)))
    ))

查看https://rstudio.github.io/DT/options.html了解更多详情