小编Rob*_*bin的帖子

是否有一个内置的Shiny属性可以计算单击一次downloadButton的次数？我在功能帮助或网络搜索中找不到它。如果没有内置方法，我该如何计算点击次数。这是一个工作示例：

data <- matrix(1:20, nrow=5)
ui <-  fluidPage(title = 'Count Button Clicks',
              fluidRow(style = "padding-bottom: 20px;",
                      column(width=6,
                             textOutput("actionclickCount"),
                             br(),
                             textOutput("downloadclickCount")
                             ),
                      column(width=6,
                             actionButton("actionBtn", "Action Button"),
                             br(),
                             downloadButton("dwnldBtn", "Download Button")
                             )
                      )
             )

server <- function(input, output, session) {
    output$actionclickCount <- renderText({
      paste('Action Button Clicks =',input$actionBtn)
    })

    output$downloadclickCount <- renderText({
      paste('Download Button Clicks =','what variable goes here?')
    })

    output$dwnldBtn <- downloadHandler(
      filename = 'data.csv',
      content = function(file){
        write.csv(data, file)
      },
      contentType = 'csv'
    )
  }

shinyApp(ui = ui, server = server)