r - 如何使用 pickerInput 进行 SHIFT 选择

Question

我想知道是否可以使用 from 来“伪造”SHIFT 选择或拖动pickerInput选择shinyWidgets？

基本上在下面的示例中，我想选择从 A 到 G 的所有字母，单击 2 次鼠标，单击 A，然后使用 SHIFT 并单击 G，之间的所有元素都被选中。

为此目的已经有一个github-issue ，但我想知道是否可以用一些 JavaScript 来伪造它？

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput("asd", label = "How to select from-to with SHIFT:",
              choices = LETTERS[1:10], multiple = TRUE)
)

server <- function(input, output, session) {}

shinyApp(ui, server)