在 R Shiny 中触发反应流的键盘快捷键？

是否有可能，比如说，F7 or Q在 Shiny 应用程序（在 Windows 中）中触发反应流？这个问题提供了用于通过键盘输入交替选项卡的代码，但我对启动反应流感兴趣。例如，每次用户按下时都会“触发”按钮Q在键盘中。

这是一个基于的示例这个答案:

library(shiny)

runApp(shinyApp(
  ui = fluidPage(
    tags$script(HTML("$(function(){ 
      $(document).keyup(function(e) {
      if (e.which == 81) {
        $('#button').click()
      }
      });
      })")),
    actionButton("button", "An action button"),
    textOutput("text")),
  server=function(input, output, session) {
    output$text <- renderText({input$button})
  }
))

您可以使用这一页找到您想要在 javascript 代码中使用的键码。 在此示例中，如果按下 q，则具有 id 的元素button被点击。