如何使用pickerInput获得SHIFT选择

Question

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

基本上，在下面的示例中，我希望通过单击两次鼠标，从A到G选择所有字母，方法是：先单击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)