Rの反応性フローをトリガーするキーボードショートカットShiny？

Question

たとえば、F7またはQがShinyアプリ（Windowsの場合）で反応フローをトリガーすることはできますか？ This questionはキーボード入力でタブを交互に切り替えるコードを提供していますが、私はリアクティブフローを開始することに興味があります。たとえば、ユーザがキーボードの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のコードで使用するキーコードを見つけるために、this pageを使用することができます。

Answer 1

はここthis answerに基づく例です。 この例では、qを押すと、IDがbuttonの要素がクリックされます。