当在闪亮的应用程序中也加载了rhandsontable时，如何通过updateSliderInput更新滑块？

Question

在我看来，如果我在一个闪亮的应用程序中使用了rhandsontable，则使用updateSliderInput更新滑块的常规方法会产生问题。在下面的示例中，单击按钮应会更新滑块（并且在同一应用中不使用Rhsonsontable时也会这样做）。相反，它以某种方式创建了一个新的文本字段？

这是rhonsontable中的错误，还是我做错了什么？任何帮助/解决方法将不胜感激！

如果这是rhondsontable的错误，是否可以在闪亮的应用程序中使用替代方法，使之具有像表格这样的电子表格，可以通过Excel中的复制/粘贴功能复制数据？它不需要是被动的，我可以有一个按钮来更新数据闪亮应用中的计算。也许可以通过按钮将其加载到闪亮的jquery电子表格中？

谢谢！

library(shiny)
library(rhandsontable)
ui <- fluidPage(
  sliderInput("testslider","Test",0,10,5),
  actionButton("do", "Click Me"),
  rHandsontableOutput("hot")  
)
server <- function(input, output, session) {
  output$hot <- renderRHandsontable({
    DF = data.frame(val = 1:10, bool = TRUE, big = LETTERS[1:10],
                    small = letters[1:10],
                    dt = seq(from = Sys.Date(), by = "days", length.out = 10),
                    stringsAsFactors = FALSE)
    return(rhandsontable(DF))
  })
  observeEvent(input$do, {
    updateSliderInput(session,inputId = "testslider" ,value = 10,
                      min = 0, max = 10, step = 0.1)
  })
}
# Run the application 
shinyApp(ui = ui, server = server)

这是当我单击按钮时创建的字段发生的情况的图片：