R 闪亮和 DT 不使用某些 DT 选项的特定列的列宽集呈现

Question

我有这段代码。 DT datatable 根本不呈现。它显示列，仅此而已。我之前发布了一个相关问题，但显然，这个问题需要作为一个单独的问题发布。我是。

知道我遗漏了什么吗？

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 = TRUE,
          columnDefs = list(
            list(width = '200px', targets = ncol(mtcars))
          )
        )
      )
    })
  }

shinyApp(ui = ui, server = server)

Answer 1

问题似乎是 columnDefs 的 targets 参数。它接受从0开始的列索引。要指定最后一列，需要将其减1。

  columnDefs = list(
    list(width = '200px', targets = ncol(mtcars) - 1)
  )

R 闪亮和 DT 不使用某些 DT 选项的特定列的列宽集呈现

R shiny and DT not rendering with column width set of specific column with some DT options

r

shiny

dt