R Shiny -启用键盘快捷键？

Question

有没有办法暴露键盘按键(如功能键 F1-F10)来控制 Shiny ，例如切换标签？

Answer 1

我能够想出一个半工作的解决方案，但是 Shiny 确实有一些限制，所以我用 Shiny 打开了一个错误。

代码如下:

library(shiny)

jscode <- "
$(function(){ 
  $(document).keyup(function(e) {
    if (e.which >= 49 && e.which <= 57) {
      Shiny.onInputChange('numpress', e.which - 48);
    }
  });
})
"

runApp(shinyApp(
  ui = fluidPage(
    tags$script(HTML(jscode)),
    "Type a number to switch to that tab",
    tabsetPanel(
      id = "navbar",
      tabPanel("tab1", "Tab 1"),
      tabPanel("tab2", "Tab 2"),
      tabPanel("tab3", "Tab 3"),
      tabPanel("tab4", "Tab 4")
    )
  ),
  server = function(input, output, session) {
    observe({
      if (is.null(input$numpress)) {
        return()
      }
      updateTabsetPanel(session, "navbar", sprintf("tab%s", input$numpress))
    })
  }
))

这是描述该问题的 Shiny 问题的链接:https://github.com/rstudio/shiny/issues/928