R閃亮的鍵盤輸入綁定

Question

在一個Shiny應用程序中，是否可以有一個綁定來監聽用戶按下的鍵？

我不是太熟悉JavaScript，但我正在尋找類似：

window.onkeydown = function (e) { 
    var code = e.keyCode ? e.keyCode : e.which; 
    alert(code); 
}; 

其中關鍵的輸入，然後在server.R使用，例如：

shinyServer(function(input, output) { 

    output$text <- renderText({ 
    paste('You have pressed the following key:', input$key) 
    }) 

    # ... 

}) 

Answer 1

您可以爲按鍵添加監聽器。該Shiny.onInputChange可用於綁定按下一個閃亮的變量的關鍵：

library(shiny) 
runApp(list(ui = bootstrapPage(
    verbatimTextOutput("results"), 
    tags$script(' 
    $(document).on("keypress", function (e) { 
     Shiny.onInputChange("mydata", e.which); 
    }); 
    ') 
) 
, server = function(input, output, session) { 

    output$results = renderPrint({ 
    input$mydata 
    }) 
} 
)) 

爲​​事件可以替代：

tags$script(' 
    $(document).on("keydown", function (e) { 
     Shiny.onInputChange("mydata", e.which); 
    }); 
    ')