编辑

Question

我正在尝试通过一个有光泽的应用程序来开发一种表格，其想法是用户填写有关许多地理区域（法国地区）的特定字段（医学发展优先级划分）。因此，我认为DT是最佳选择。我不想创建列editable，因为我希望用户在4个特定值之间进行选择（表单的想法是减少以后要清除的自由文本）。

我开始以YiHui https://yihui.shinyapps.io/DT-radio/为例当我为法语用户工作时，我试图添加一个选项以自定义法语语言，但是整个逻辑都中断了，我不知道为什么。

这是一个reprex：（只需用language = list(...注释该行即可使它工作）。

library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    title = 'Radio buttons in a table',
    DT::dataTableOutput('foo'),
    verbatimTextOutput('sel')
  ),
  server = function(input, output, session) {
    m = matrix(
      as.character(1:5), nrow = 12, ncol = 5, byrow = TRUE,
      dimnames = list(month.abb, LETTERS[1:5])
    )
    for (i in seq_len(nrow(m))) {
      m[i, ] = sprintf(
        '<input type="radio" name="%s" value="%s"/>',
        month.abb[i], m[i, ]
      )
    }
    m
    output$foo = DT::renderDataTable(
      m, escape = FALSE, selection = 'none', server = FALSE,
      options = list(dom = 'tirp', paging = FALSE, ordering = FALSE
                     ,language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/French.json')
                     ),
      callback = JS("table.rows().every(function(i, tab, row) {
          var $this = $(this.node());
          $this.attr('id', this.data()[0]);
          $this.addClass('shiny-input-radiogroup');
        });
        Shiny.unbindAll(table.table().node());
        Shiny.bindAll(table.table().node());")
    )
    output$sel = renderPrint({
      str(sapply(month.abb, function(i) input[[i]]))
    })
  }
)

这是我的sessionInfo（）

R 3.6.0

sessioninfo :: session_info（）   -会话信息----------------------------------------------- -------------------     设定值
  版本R版本3.6.0（2019-04-26）   操作系统Windows 10 x64
  系统x86_64，mingw32
  ui RStudio
  语言（EN）
  整理French_France.1252
  ctype French_France.1252
  tz欧洲/巴黎
  日期2019-06-26


包装---------------------------------------------- ------------------------   包*版本日期lib源
  断言0.2.1 2019-03-21 [1] CRAN（R 3.6.0）
  cli 1.1.0 2019-03-19 [1] CRAN（R 3.6.0）
  蜡笔1.3.4 2017-09-16 [1] CRAN（R 3.6.0）
  crosstalk 1.0.0 2016-12-21 [1] CRAN（R 3.6.0）
  摘要0.6.19 2019-05-20 [1] CRAN（R 3.6.0）
  DT * 0.7.1 2019-06-26 [1] Github（rstudio / DT @ c6fd864）   htmltools 0.3.6 2017-04-28 [1] CRAN（R 3.6.0）
  htmlwidgets 1.3 2018-09-30 [1] CRAN（R 3.6.0）
  httpuv 1.5.1 2019-04-05 [1] CRAN（R 3.6.0）
  jsonlite 1.6 2018-12-07 [1] CRAN（R 3.6.0）
  以后0.8.0 2019-02-11 [1] CRAN（R 3.6.0）
  magrittr 1.5 2014-11-22 [1] CRAN（R 3.6.0）
  mime 0.7 2019-06-11 [1] CRAN（R 3.6.0）
  packrat 0.5.0 2018-11-14 [1] CRAN（R 3.6.0）
  承诺1.0.1 2018-04-13 [1] CRAN（R 3.6.0）
  R6 2.4.0 2019-02-14 [1] CRAN（R 3.6.0）
  Rcpp 1.0.1 2019-03-17 [1] CRAN（R 3.6.0）
  rlang 0.3.4 2019-04-07 [1] CRAN（R 3.6.0）
  rstudioapi 0.10 2019-03-19 [1] CRAN（R 3.6.0）
  sessioninfo 1.1.1 2018-11-05 [1] CRAN（R 3.6.0）
  闪亮* 1.3.2 2019-04-22 [1] CRAN（R 3.6.0）
  sourcetools 0.1.7 2018-04-25 [1] CRAN（R 3.6.0）
  withr 2.1.2 2018-03-15 [1] CRAN（R 3.6.0）
  xtable 1.8-4 2019-04-21 [1] CRAN（R 3.6.0）
  yaml 2.2.0 2018-07-25 [1] CRAN（R 3.6.0）

我也尝试使用R 3.5.2，但存在保存问题。

当我单击一些单选按钮时，我应该看到：

List of 12
 $ Jan: chr "1"
 $ Feb: chr "2"
 $ Mar: NULL
 $ Apr: NULL
 $ May: NULL
 $ Jun: NULL
 $ Jul: NULL
 $ Aug: NULL
 $ Sep: NULL
 $ Oct: NULL
 $ Nov: NULL
 $ Dec: NULL

它改为NULL，我找不到任何显式错误。

List of 12
 $ Jan: NULL
 $ Feb: NULL
 $ Mar: NULL
 $ Apr: NULL
 $ May: NULL
 $ Jun: NULL
 $ Jul: NULL
 $ Aug: NULL
 $ Sep: NULL
 $ Oct: NULL
 $ Nov: NULL
 $ Dec: NULL

DT中的语言选项有什么问题？

Answer 1

我无法解释，但这可以通过添加setTimeout来实现：

  callback = JS("table.rows().every(function(i, tab, row) {
                  var $this = $(this.node());
                  $this.attr('id', this.data()[0]);
                  $this.addClass('shiny-input-radiogroup');
                });
                Shiny.unbindAll(table.table().node());
                setTimeout(function(){
                  Shiny.bindAll(table.table().node());
                },0);")

编辑

以上内容对我有用，但我设置了dom = ftirp。这不适用于tirp。这是另一种解决方案：

output$foo = DT::renderDataTable(
  m, escape = FALSE, selection = 'none', server = FALSE,
  options = list(dom = 'tirp', paging = FALSE, ordering = FALSE,
                 initComplete = JS("function(settings,json){
                                     var table = settings.oInstance.api();
                                     Shiny.unbindAll(table.table().node());
                                     Shiny.bindAll(table.table().node());}")
                 ,language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/French.json')
  ),
  callback = JS("table.rows().every(function(i, tab, row) {
                  var $this = $(this.node());
                  $this.attr('id', this.data()[0]);
                  $this.addClass('shiny-input-radiogroup');
                });")
)

添加语言选项时，带有单选按钮的R Shiny DT会中断

1 个答案:

编辑