如何在RShiny应用程序中将焦点设置为rhandson表中的第一行第一列单元格?

我需要将重点放在RShiny应用程序中rhandontable的第一行第一列单元格上。正在寻找与本论坛讨论的解决方案类似的解决方案: Set the focus to a specific datagrid cell , QML: Set focus TextInput in a table cell , how to focus a table cell using javascript? , want to put the focus and edit the first cell of my dynamic table 等等。我需要渲染器功能的帮助来实现这一点。

library(shiny)
library(rhandsontable)

DF = data.frame(matrix(data = '', nrow = 5, ncol = 1, dimnames = list(seq(1:5),c("Barcode"))))

ui <- fluidPage(
  titlePanel("Scan Sample Barcode"),
  mainPanel(
    rHandsontableOutput("scanBarcode")
  )
  
)
server <- function(input, output) {
  output$scanBarcode <- renderRHandsontable(rhandsontable(DF) %>%
                                              hot_cols(renderer = "function(instance, td, row, col, prop, value, cellProperties) 
                                                {Handsontable.TextCell.renderer.apply(this, arguments);
                                                if (col == 0 & row == 0 ) {td.focus();}")
                                           )
}

shinyApp(ui = ui, server = server)

正在寻找如下所示的解决方案: