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

Question

是否有可能让F7或Q触发Shiny应用程序中的被动流（在Windows中）？ This question提供了使用键盘输入交替制表符的代码，但我有兴趣启动反应流。例如，按钮被触发＆＃39;每次用户按下键盘上的Q时。

Answer 1

以下是基于this answer的示例：

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})
  }
))

您可以使用this page查找要在javascript代码中使用的密钥代码。 在此示例中，如果按下q，则单击标识为button的元素。