блестящий DT с возможностью выбора даты и вертикальной радиокнопкой - PullRequest
Новая
       8

блестящий DT с возможностью выбора даты и вертикальной радиокнопкой

0 голосов
/ 04 декабря 2018

Мне нужен блестящий набор данных DT с переключателями, встроенными в столбец. Это приложение показывает решение для горизонтальных кнопок, поэтому я начал адаптировать его для вертикального случая.Матрицу было легко модифицировать (см. Код ниже), однако я застрял в части обратного вызова из-за недостатка знаний JavaScript.Есть идеи?

ОБНОВЛЕНИЕ : Если радиокнопки не являются обязательными, проще использовать функцию выбора строк в DT, и просто установить выделение = "один", чтобы можно было выбрать только одну строку. 

library(shiny)
library(DT)
m = matrix(
  as.character(1:12), nrow = 12, ncol = 5, byrow = FALSE,
  dimnames = list(month.abb, LETTERS[1:5])
)
for (i in seq_len(ncol(m))) {
  #for (i in 1) {
  m[,i ] = sprintf(
    '<input type="radio" name="%s" value="%s"/>',
    LETTERS[i], m[,i]
  )
}

shinyApp(
  ui = fluidPage(
    title = 'Radio buttons in a table',
    DT::dataTableOutput('foo'),
    verbatimTextOutput('sel')
  ),
  server = function(input, output, session) {
    output$foo = DT::renderDataTable(
      m, escape = FALSE, selection = 'none', server = FALSE,
      options = list(dom = 't', paging = FALSE, ordering = FALSE),
      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({
      input[["A"]]
    })
    }
)

1 Ответ

0 голосов
/ 15 июня 2019 
library(shiny)
library(DT)

m = matrix(
  as.character(1:12), nrow = 12, ncol = 5, byrow = FALSE,
  dimnames = list(month.abb, LETTERS[1:5])
)
for (i in seq_len(ncol(m))) {
  m[, i] = sprintf(
    '<input type="radio" name="%s" value="%s"/>',
    LETTERS[i], m[,i]
  )
}

callback <- c(
  "var LETTERS = ['A','B','C','D','E'];",
  "for(var i=0; i < LETTERS.length; ++i){",
  "  var L = LETTERS[i];",
  "  $('input[name=' + L + ']').on('click', function(){",
  "    var name = $(this).attr('name');",
  "    var value = $('input[name=' + name + ']:checked').val();",
  "    Shiny.setInputValue(name, value);",
  "  });",
  "}"
)

shinyApp(
  ui = fluidPage(
    title = 'Radio buttons in a table',
    DT::dataTableOutput('foo'),
    verbatimTextOutput('sel')
  ),
  server = function(input, output, session) {
    output$foo = DT::renderDataTable(
      m, escape = FALSE, selection = 'none', server = FALSE,
      options = list(dom = 't', paging = FALSE, ordering = FALSE),
      callback = JS(callback)
    )
    output$sel = renderPrint({
      input[["A"]]
    })
  }
)
...