如何在rstudio的选择输入中使用钥匙板箭头键

Question

在以下代码中，我如何使用键盘箭头键在下拉列表中上下选择类别，一旦我命中" Enter"，我想选择它。

rm(list = ls())
library(shiny)
mychoices <- c("A1", "A2", "B1", "B2", "C1", "C2")
ui <- fluidPage(
selectInput("campaigns", "Choose campaign(s):", multiple = T, choices = 
mychoices),
)
server <- function(input, output, session) {

}
runApp(list(ui = ui, server = server))

Answer 1

这是一个基本示例，应该允许您使用光标并查看结果。

library(shiny)
rm(list = ls())
mychoices <- c("A1", "A2", "B1", "B2", "C1", "C2")
ui <- fluidPage(
  column(4,selectInput("campaigns", "Choose campaign(s):", multiple = T, choices = 
                mychoices)),
  column(8, textOutput("prints"))
)
server <- function(input, output, session) {
  output$prints <- renderText({ 
    if(length(input$campaigns) == 0 ) return()
    input$campaigns
  })
}
runApp(list(ui = ui, server = server))

请让我知道它是否适合您。