shiny-rstudioのselectInputでキーボードボードの矢印キーを使用する方法

Question

次のコードで、キーボードの矢印キーを使用してドロップダウンリストからカテゴリを選択するにはどうすればよいですか？それを選択させるのが好きです。

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

あなたに適しているかどうか教えてください。