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

Question

是否可以让 F7 或 Q 在闪亮的应用程序（在 Windows 中）中触发反应流？ This question 提供了用键盘输入交替选项卡的代码，但我对启动反应流程很感兴趣。例如，每次用户在键盘上按下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，则会单击 id 为 button 的元素。