R 禁用日期范围中的键盘输入

我想做一件简单的事，但我找不到一个方法来做。我想禁用用键盘修改日期范围的功能。如果不能用键盘修改日期，用户体验会更好。如果你想选择一个比现在早10个月的日期，然后按下键盘上的一个键，那么你就回到了令人不安的当前月份

下面是一个示例代码

library('shiny')

shinyApp(
  ui = fluidPage(
    fluidRow(
      column(4, 
        dateRangeInput("dates", label = h3("Date range")),
        verbatimTextOutput("datesOut")
      )
    )
  ), 
  server = function(input, output) {
    output$datesOut <- renderPrint({ input$dates })
  }
)

我想让它不可能使用键盘来修改输入。我看到了与此相关的内容，但我不知道如何将onkeydown=returnfalse添加到Shining:：daterange

---

谢谢

这是我为感兴趣的人找到的解决方案

我只需要添加一点javascript。我还可以在选择日期后关闭日期选择器

library('shiny')

shinyApp(
  ui = fluidPage(
    includeScript("code.js"),
    fluidRow(
      column(4, 
             dateRangeInput("dates", label = h3("Date range")),
             verbatimTextOutput("datesOut")
      )
    )
  ), 
  server = function(input, output) {
    output$datesOut <- renderPrint({ input$dates })
  }
)

$(document).ready(function(){

  $('#dates input').bsDatepicker({
    autoclose: true
  });
  $("#dates").attr('onkeydown', 'return false');
});