觸發R中反應流的鍵盤快捷鍵Shiny？

Question

是否有可能讓F7或Q在Shiny應用程序（在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，則會單擊標識爲button的元素。