使用键盘快捷键专注于 selectInput

Question

我正在寻找一种方法，当用户单击键 'q' 时，将焦点放在 selectInput 上。有人可以告诉我如何修改下面的代码吗？

现在，点击 q 键会使 text 中的计数器增加 1。

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"),
    selectInput("inputBox", "Select something", choices = c("A","B","C"), selected = "B"),
    textOutput("text")),
  server=function(input, output, session) {
    output$text <- renderText({input$button})
  }
))

Answer 1

使用这个脚本：

tags$script(HTML("$(function(){ 
  $(document).keyup(function(e) {
    if(e.which == 81){
      var selectized = $('#inputBox').selectize();
      selectized[0].selectize.focus();
    }
  });
})")),

使用键盘快捷键专注于 selectInput

Focus on selectInput using keyboard shortcut key

r

shiny

shiny-server

shinydashboard

shinyapps