添加多个复选框到Shiny数据表格中，并获取它们的值。

huangapple
go评论104阅读模式
英文:

Add multiple checkboxes in shiny datatable and retrieve it's value

问题

I added multiple checkbox columns (check1, check2) to the datatable. I have corresponding table with bool1 and bool2 that I want to update based on the reactives for the checkboxes. I am able to retrieve the data for check1 only. I need to update the callback function to take in both check1 and check2 columns but I am not too familiar with JS. Need help figuring this out.

英文:

I added multiple checkbox columns (check1, check2) to the datatable. I have corresponding table with bool1 and bool2 that I want to update based on the reactives for the checkboxes. I am able to retrieve the data for check1 only. I need to update the callback function to take in both check1 and check2 columns but I am not too familiar with JS. Need help figuring this out.

  1. library(shiny)
  2. library(DT)
  4. ui <- fluidPage(
  5.   br(),
  6.   fluidRow(
  7.     column(
  8.       6,
  9.       DTOutput("dtable")
  10.     ),
  11.     column(
  12.       6,
  13.       verbatimTextOutput("reactiveDF")
  14.     )
  15.   )
  16. )
  18. shinyInput <- function(FUN, len, id, ...) {
  19.   inputs <- character(len)
  20.   for (i in seq_len(len)) {
  21.     inputs[i] <- as.character(FUN(paste0(id, i), label = NULL, ...))
  22.   }
  23.   inputs
  24. }
  26. dat0 <- data.frame(
  27.   fruit  = c("apple", "cherry", "pineapple", "pear"),
  28.   letter = c("a", "b", "c", "d")
  29. )
  31. dat1 <- cbind(dat0, bool1 = FALSE, bool2 = FALSE)
  33. dat2 <- cbind(
  34.   dat0,
  35.   check1 = shinyInput(checkboxInput, nrow(dat0), "checkb"),
  36.   check2 = shinyInput(checkboxInput, nrow(dat0), "checkc")
  37. )
  39. js <- c(
  40.   "$('[id^=checkb]').on('click', function(){",
  41.   "  var id = this.getAttribute('id');",
  42.   "  var i = parseInt(/checkb(\\d+)/.exec(id)[1]);",
  43.   "  var value = $(this).prop('checked');",
  44.   "  var info = [{row: i, col: 3, value: value}];",
  45.   "  Shiny.setInputValue('dtable_cell_edit:DT.cellInfo', info);",
  46.   "})"
  47. )
  49. server <- function(input, output, session) {
  51.   Dat <- reactiveVal(dat1)
  53.   output[["dtable"]] <- renderDT({
  54.     datatable(
  55.       dat2,
  56.       rownames = TRUE,
  57.       escape = FALSE,
  58.       editable = list(target = "cell", disable = list(columns = c(3,4))),
  59.       selection = "none",
  60.       callback = JS(js)
  61.     )
  62.   }, server = FALSE)
  64.   observeEvent(input[["dtable_cell_edit"]], {
  65.     info <- input[["dtable_cell_edit"]] # this input contains the info of the edit
  66.     print(info)
  67.     Dat(editData(Dat(), info))
  68.   })
  70.   output[["reactiveDF"]] <- renderPrint({
  71.     Dat()
  72.   })
  74. }
  76. shinyApp(ui, server)

答案1

得分: 1

这是您提供的代码的翻译部分：

  1. 这是您提供的代码的翻译部分：
  3. library(shiny)
  4. library(DT)
  6. ui <- fluidPage(
  7.   br(),
  8.   fluidRow(
  9.     column(
  10.       6,
  11.       DTOutput("dtable")
  12.     ),
  13.     column(
  14.       6,
  15.       verbatimTextOutput("reactiveDF")
  16.     )
  17.   )
  18. )
  20. checkboxColumn <- function(len, col, ...) { # `col` is the column index
  21.   inputs <- character(len)
  22.   for(i in seq_len(len)) {
  23.     inputs[i] <- as.character(
  24.       checkboxInput(paste0("checkb_", col, "_", i), label = NULL, ...)
  25.     )
  26.   }
  27.   inputs
  28. }
  30. dat0 <- data.frame(
  31.   fruit  = c("apple", "cherry", "pineapple", "pear"),
  32.   letter = c("a", "b", "c", "d")
  33. )
  35. dat1 <- cbind(dat0, bool1 = FALSE, bool2 = FALSE)
  37. dat2 <- cbind(
  38.   dat0,
  39.   check1 = checkboxColumn(nrow(dat0), 3),
  40.   check2 = checkboxColumn(nrow(dat0), 4)
  41. )
  43. js <- function(dtid, cols, ns = identity) {
  44.   code <- vector("list", length(cols))
  45.   for(i in seq_along(cols)) {
  46.     col <- cols[i]
  47.     code[[i]] <- c(
  48.       sprintf(
  49.         "$('body').on('click', '[id^=checkb_%d_]', function() {",
  50.         col),
  51.       "  var id = this.getAttribute('id');",
  52.       sprintf(
  53.         "  var i = parseInt(/checkb_%d_(\\d+)/.exec(id)[1]);",
  54.         col),
  55.       "  var value = $(this).prop('checked');",
  56.       sprintf(
  57.         "  var info = [{row: i, col: %d, value: value}];",
  58.         col),
  59.       sprintf(
  60.         "  Shiny.setInputValue('%s', info);",
  61.         ns(sprintf("%s_cell_edit:DT.cellInfo", dtid))
  62.       ),
  63.       "});"
  64.     )
  65.   }
  66.   do.call(c, code)
  67. }
  69. checkboxesColumns <- c(3, 4)
  71. server <- function(input, output, session) {
  72.   
  73.   Dat <- reactiveVal(dat1)
  74.   
  75.   output[["dtable"]] <- renderDT({
  76.     datatable(
  77.       dat2, 
  78.       rownames = TRUE,
  79.       escape = FALSE,
  80.       editable = list(
  81.         target = "cell", disable = list(columns = checkboxesColumns)
  82.       ),
  83.       selection = "none",
  84.       callback = JS(js("dtable", checkboxesColumns))
  85.     )
  86.   }, server = FALSE)
  87.   
  88.   observeEvent(input[["dtable_cell_edit"]], { 
  89.     info <- input[["dtable_cell_edit"]] # this input contains the info of the edit
  90.     Dat(editData(Dat(), info))
  91.   })
  92.   
  93.   output[["reactiveDF"]] <- renderPrint({ 
  94.     Dat()
  95.   })
  96.   
  97. }
  99. shinyApp(ui, server)

希望这对您有所帮助。如果您需要更多翻译或有其他问题，请随时告诉我。

英文:

Here we go. I added an argument ns in case if you want to use this stuff in a Shiny module. If you don't use a module, keep the default value (identity).

  1. library(shiny)
  2. library(DT)
  4. ui &lt;- fluidPage(
  5.   br(),
  6.   fluidRow(
  7.     column(
  8.       6,
  9.       DTOutput(&quot;dtable&quot;)
  10.     ),
  11.     column(
  12.       6,
  13.       verbatimTextOutput(&quot;reactiveDF&quot;)
  14.     )
  15.   )
  16. )
  18. checkboxColumn &lt;- function(len, col, ...) { # `col` is the column index
  19.   inputs &lt;- character(len)
  20.   for(i in seq_len(len)) {
  21.     inputs[i] &lt;- as.character(
  22.       checkboxInput(paste0(&quot;checkb_&quot;, col, &quot;_&quot;, i), label = NULL, ...)
  23.     )
  24.   }
  25.   inputs
  26. }
  28. dat0 &lt;- data.frame(
  29.   fruit  = c(&quot;apple&quot;, &quot;cherry&quot;, &quot;pineapple&quot;, &quot;pear&quot;),
  30.   letter = c(&quot;a&quot;, &quot;b&quot;, &quot;c&quot;, &quot;d&quot;)
  31. )
  33. dat1 &lt;- cbind(dat0, bool1 = FALSE, bool2 = FALSE)
  35. dat2 &lt;- cbind(
  36.   dat0,
  37.   check1 = checkboxColumn(nrow(dat0), 3),
  38.   check2 = checkboxColumn(nrow(dat0), 4)
  39. )
  41. js &lt;- function(dtid, cols, ns = identity) {
  42.   code &lt;- vector(&quot;list&quot;, length(cols))
  43.   for(i in seq_along(cols)) {
  44.     col &lt;- cols[i]
  45.     code[[i]] &lt;- c(
  46.       sprintf(
  47.         &quot;$(&#39;body&#39;).on(&#39;click&#39;, &#39;[id^=checkb_%d_]&#39;, function() {&quot;,
  48.         col),
  49.       &quot;  var id = this.getAttribute(&#39;id&#39;);&quot;,
  50.       sprintf(
  51.         &quot;  var i = parseInt(/checkb_%d_(\\d+)/.exec(id)[1]);&quot;,
  52.         col),
  53.       &quot;  var value = $(this).prop(&#39;checked&#39;);&quot;,
  54.       sprintf(
  55.         &quot;  var info = [{row: i, col: %d, value: value}];&quot;,
  56.         col),
  57.       sprintf(
  58.         &quot;  Shiny.setInputValue(&#39;%s&#39;, info);&quot;,
  59.         ns(sprintf(&quot;%s_cell_edit:DT.cellInfo&quot;, dtid))
  60.       ),
  61.       &quot;});&quot;
  62.     )
  63.   }
  64.   do.call(c, code)
  65. }
  67. checkboxesColumns &lt;- c(3, 4)
  69. server &lt;- function(input, output, session) {
  70.   
  71.   Dat &lt;- reactiveVal(dat1)
  72.   
  73.   output[[&quot;dtable&quot;]] &lt;- renderDT({
  74.     datatable(
  75.       dat2, 
  76.       rownames = TRUE,
  77.       escape = FALSE,
  78.       editable = list(
  79.         target = &quot;cell&quot;, disable = list(columns = checkboxesColumns)
  80.       ),
  81.       selection = &quot;none&quot;,
  82.       callback = JS(js(&quot;dtable&quot;, checkboxesColumns))
  83.     )
  84.   }, server = FALSE)
  85.   
  86.   observeEvent(input[[&quot;dtable_cell_edit&quot;]], { 
  87.     info &lt;- input[[&quot;dtable_cell_edit&quot;]] # this input contains the info of the edit
  88.     Dat(editData(Dat(), info))
  89.   })
  90.   
  91.   output[[&quot;reactiveDF&quot;]] &lt;- renderPrint({ 
  92.     Dat()
  93.   })
  94.   
  95. }
  97. shinyApp(ui, server)

huangapple
  • 本文由 发表于 2023年5月25日 22:32:53
  • 转载请务必保留本文链接：https://go.coder-hub.com/76333449.html
  • checkbox
  • dt
  • javascript
  • r
  • shiny
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定