Shift + Click in datagrid() checkbox columns generated by grid_selection_row() does not update selection return values

[scconner7]

Description:

Shift + Left Click multi-row range selection in datagrid() checkbox columns generated by grid_selection_row() visually updates all checkboxes in the selection range but does not actually update the selection return values. The gif below was created using the reprex app from your documentation without any edits (besides slight theming) and, I believe, illustrates the issue very clearly.

Reprex app code:

library(shiny)
library(toastui)

ui <- fluidPage(
  tags$h2("datagrid row selection"),
  fluidRow(
    column(
      width = 6,
      datagridOutput("grid_checkbox"),
      verbatimTextOutput("res_checkbox")
    ),
    column(
      width = 6,
      datagridOutput("grid_radio"),
      verbatimTextOutput("res_radio")
    )
  )
)

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

  df <- data.frame(
    index = 1:12,
    month = month.name,
    letters = letters[1:12]
  )

  output$grid_checkbox <- renderDatagrid({
    datagrid(df) %>%
      grid_selection_row(
        inputId = "sel_check",
        type = "checkbox"
      )
  })

  output$res_checkbox <- renderPrint({
    input$sel_check
  })

  output$grid_radio <- renderDatagrid({
    datagrid(df) %>%
      grid_selection_row(
        inputId = "sel_radio",
        type = "radio"
      )
  })

  output$res_radio <- renderPrint({
    input$sel_radio
  })

}

if (interactive())
  shinyApp(ui, server)

Desired Resolution:

Shift + Left Click should continue to visually update checkboxes in the selection range and also be fixed to update the actual selection return values as well.

Thank you in advance!