向数据表添加常规按钮 - 闪亮的应用程序

Question

我在闪亮的应用程序中使用数据表。 我想在搜索按钮附近添加一个按钮。 当我点击按钮时，我想调用函数：observeEvent(input[["btn"]] 这是我的代码：

   DT::renderDataTable(rownames = FALSE,                         
                               DT::datatable(my_df,extensions = 'Buttons',  
                  options = list(info  = FALSE, paging = FALSE, 
                                 dom='Bfrtip', buttons= list('copy')
                                  )))

它看起来很棒，但我想要一个普通按钮来调用而不是复制按钮 这个函数：observeEvent(input[["btn"]] 知道我该怎么做吗？

Answer 1

让我们定义一个自定义按钮。

将按钮标签更改为text，更改setInputValue 中的闪亮输入ID，将mydf_btn 更改为您想要的任何内容。

library(shiny)

ui <- fluidPage(
  DT::DTOutput("mydf")
)

server <- function(input, output, session) {
    output$mydf <- DT::renderDataTable(                       
                        DT::datatable(
                            iris,extensions = 'Buttons', rownames = FALSE,  
                            options = list(
                            info  = FALSE, paging = FALSE, dom='lfBrtip', 
                            buttons= list(
                                list(
                                    extend = 'collection',
                                    text = 'My Action',
                                    action = DT::JS(
                                    "function() {
                                        var node = this[0].node;
                                        var value = $(node).attr('data-value') || 0;
                                        value ++;
                                        $(node).attr('data-value', value);
                                        Shiny.setInputValue('mydf_btn', value, {priority: 'event'});
                                    }"
                                    )
                                )
                            )
                          )
                        )
    )
    observe(print(input$mydf_btn))
}

shinyApp(ui, server)