在 DT 上注册闪亮的 checkboxInput 值

Question

我可以通过阅读 .

在 DT 列的每个单元格中嵌入复选框

假设我有一个数据框，其中包含一个名为 "value" 的逻辑列，其中包含一些 TRUE 值，并且我希望 "value_check" 列中的复选框在应用程序启动时显示为已选中，如下图所示：我该怎么做？

library(shiny)
library(DT)

df <- data.frame(item = c("a", "b", "c"), value = c(TRUE, NA, NA))

shinyInput <- function(FUN, len, id, ...) {
  inputs <- character(len)
  for (i in seq_len(len)) {
    inputs[i] <- as.character(FUN(paste0(id, i), label = NULL, ...))
  }
  inputs
}

## obtaining checkbox value
shinyValue = function(id, len) { 
  unlist(lapply(seq_len(len), function(i) { 
    value = input[[paste0(id, i)]] 
    if (is.null(value)) FALSE else value 
  })) 
} 

server <- function(input, output, session) {
  output$tbl <- renderDT(server = FALSE, escape = FALSE, editable = TRUE, options = list(
    dom = 't', paging = FALSE, ordering = FALSE,
    preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
    drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
  ), {
    df$value_check <- shinyInput(checkboxInput, nrow(df), "check")
    df
    }
  )
}

ui <- fluidPage(
  DTOutput("tbl")
)

shinyApp(ui, server)

Answer 1

我以为我有一个解决方案，但现在恐怕我误解了你的问题。使用下面的代码，value 列中的值会根据 value_check 列中相应复选框的状态进行更新。

js <- c(
  "$('[id^=check]').on('click', function(){",
  "  var id = this.getAttribute('id');",
  "  var i = parseInt(/check(\d+)/.exec(id)[1]);",
  "  var value = $(this).prop('checked');",
  "  var cell = table.cell(i-1, 2).data(value).draw();",
  "})"
)

然后

  output$tbl <- renderDT(server = FALSE, escape = FALSE, editable = TRUE, 
                         callback = JS(js),
                         options = list(
                           dom = 't', paging = FALSE, ordering = FALSE,
                           preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
                           drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
                         ), {
                           df$value_check <- shinyInput(checkboxInput, nrow(df), "check")
                           df
                         }
  )

但现在我知道你要求 "converse" ：根据 value 列中的值选中复选框。正确的？但是你不需要上面的吗？

那么，按照我现在的理解来回答你的问题，我会这样做：

shinyCheckboxes <- function(len, id, checked){
  inputs <- character(len)
  for (i in seq_len(len)) {
    inputs[i] <- as.character(checkboxInput(paste0(id, i), label=NULL, 
                                            value = checked[i]))
  }
  inputs
}

然后

checked <- sapply(df$value, isTRUE)
df$value_check <- shinyCheckboxes(nrow(df), "check", checked)

是你想要的吗？

在 DT 上注册闪亮的 checkboxInput 值

Register shiny checkboxInput value on DT

checkbox

r

shiny

dt