Как добавить пользовательские кнопки в R Shiny Datatable? - PullRequest
Новая
       10

Как добавить пользовательские кнопки в R Shiny Datatable?

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

На сайте datatables.net есть возможность добавить пользовательскую кнопку.Как это можно закодировать в приложении R Shiny?Будет здорово увидеть базовый пример кода R для одной кнопки и наблюдателя.

Вот код JS от https://datatables.net/extensions/buttons/examples/initialisation/custom.html

$(document).ready(function() {
    $('#example').DataTable( {
        dom: 'Bfrtip',
        buttons: [
            {
                text: 'My button',
                action: function ( e, dt, node, config ) {
                    alert( 'Button activated' );
                }
            }
        ]
    } );
} );

Спасибо!

Ответы [ 2 ]

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

Я ценю ответ Стефана Лорана и нашел пропавшую вещь.должна быть пара скобок {} вокруг 

priority: 'event'

как, 

Shiny.setInputValue('test', true, {priority: 'event'});

как в https://shiny.rstudio.com/articles/communicating-with-js.html

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

Вам не нужно использовать Javascript, за исключением действия.Вы можете сделать: 

library(DT)
datatable(iris,
          extensions = 'Buttons',
          options = list(
            dom = 'Bfrtip',
            buttons = list(
              "copy",
              list(
                extend = "collection",
                text = 'test',
                action = DT::JS("function ( e, dt, node, config ) {
                                    alert( 'Button activated' );
                                }")
              )
            )
          )
)

Чтобы передать что-то из Javascript на блестящий сервер, используйте Shiny.setInputValue: 

library(shiny)
library(DT)

ui <- basicPage(
  DTOutput("dtable")
)

server <- function(input, output, session){
  output$dtable <- renderDT(
    datatable(iris,
              extensions = 'Buttons',
              options = list(
                dom = 'Bfrtip',
                buttons = list(
                  "copy",
                  list(
                    extend = "collection",
                    text = 'test',
                    action = DT::JS("function ( e, dt, node, config ) {
                                      Shiny.setInputValue('test', true, {priority: 'event'});
                                   }")
                  )
                )
              )
    )
  )

  observeEvent(input$test, {
      print("hello")
  })
}

shinyApp(ui, server)
...