R Shiny DT数据表列宽适用于所有列，但不适用于特定列

Question

我已经看过文档、示例和其他答案。但是，就我的生活而言，我不能让DT::datatable()在我的输出中只加宽一列。当我将选项设置为包括_all列时，它可以工作，但显然不是我想要的。

下面是一个工作示例：

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(
escape = FALSE, selection = 'none',
extensions = 'FixedColumns',
options = list(
paging = FALSE, pageLength = 10, ordering = FALSE,  scrollX = 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 = 'feedback'))
)
)
})
}
shinyApp(ui = ui, server = server)

更改targets = '_all'有效。但是，这会加宽所有列。

> packageVersion('shiny')
[1] ‘1.4.0’
> packageVersion('DT')
[1] ‘0.17’

我缺了什么吗？

更新：

现在，我使用ncol(mtcars)和一些选项，DT根本不渲染。我得到了显示中的列和零行：

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

对于targets，您可以使用列索引号(索引为零(：

targets = 3

或者，要针对多个特定列，请使用数组：

targets = list(3,4)

还有一些附加选项-请参阅此处以供参考。

---

更新

因此，使用上面提到的关于索引为零的事实，并查看参考文档(参见上面的链接(，我们可以说：

• 表中的第一列的索引为0
• 表中的第二列的索引为1
• 。。。等等

我们也可以说：

• 表中的最后一列的索引为-1
• 表中倒数第二列的索引为-2
• 。。。等等