R Collegamento con tasto lucido

Question

In un'applicazione lucida, è possibile avere un'associazione che ascolti il ​​tasto premuto dall'utente?

Io non sono troppo familiarità con JavaScript, ma sto cercando qualcosa di simile:

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

dove l'input chiave è quindi da utilizzare in server.R, ad esempio:

shinyServer(function(input, output) { 

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

    # ... 

}) 

Answer 1

È possibile aggiungere un listener per i tasti premuti. Il Shiny.onInputChange può essere utilizzato per legare il tasto premuto per una variabile lucido:

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

per keydown eventi si può sostituire:

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