R Shiny DT::datatable列宽设置失效及表格渲染异常问题求助

核心问题点 #

• DT的columnDefs的targets参数采用0起始的索引规则，R中ncol(mtcars)返回的是1起始的总列数，直接传入会指向不存在的列，触发渲染异常。
• 用列名作为targets匹配不生效的原因：FixedColumns扩展开启时，列名匹配优先级低于索引规则，若保留默认行名列（占索引0位），列名对应的实际索引会偏移1位，导致匹配失败。
• autoWidth = TRUE在固定列+自定义列宽的场景下，会触发表格自适应逻辑，挤压自定义列的宽度配置，导致单独指定的列宽不生效。

修复后可运行代码 #

library(dplyr)
library(shiny)
library(DT)
library(data.table)

mtcars <- mtcars[1:5, ]

ui <- fluidPage(
  fluidRow(
    dataTableOutput(('mtcarsDT')),
  )
)

server <- function(input, output, session) {
  output$mtcarsDT <- DT::renderDataTable({
    recFeedbackCol <- lapply(1:nrow(mtcars), function(recnum)
      as.character(
        radioButtons(
          paste0(
            'rec', recnum),
          '',
          choices = c('good' = 'Good', 'bad' = 'Bad', 'neutral' = 'Neutral'),
          inline = TRUE
        )
      )
    )
    recFeedbackCol <- tibble(feedback = recFeedbackCol)
    
    mtcars <- bind_cols(
      mtcars,
      recFeedbackCol
    )
    
    mtcars %>%
      DT::datatable(
        extensions = 'FixedColumns',
        rownames = FALSE,
        escape = FALSE,
        class="compact cell-border",
        options = list(
          pageLength = 15, 
          lengthChange = FALSE, 
          scrollX = TRUE,
          searching = FALSE,
          dom = 't',
          ordering = TRUE,
          fixedColumns = list(leftColumns = 2),
          preDrawCallback = JS(
            'function() { Shiny.unbindAll(this.api().table().node()); }'
          ),
          drawCallback = JS(
            'function() { Shiny.bindAll(this.api().table().node()); } '
          ),
          autoWidth = FALSE,
          columnDefs = list(
            # 给前11列设置较小的默认宽度，避免挤压feedback列
            list(width = '80px', targets = 0:(ncol(mtcars)-2)),
            # 最后一列feedback的索引为总列数-1（0起始）
            list(width = '200px', targets = ncol(mtcars)-1)
          )
        )
      )
  })
}

shinyApp(ui = ui, server = server)

改动说明 #

1. 将autoWidth改为FALSE，关闭自动宽度逻辑，避免自定义配置被覆盖
2. 给非目标列设置基础宽度，避免表格自适应挤压目标列空间
3. 目标列索引修正为ncol(mtcars)-1，适配0起始的索引规则

内容的提问来源于stack exchange，提问作者Gopala