如何将焦点设置到 RShiny 应用程序中 rhandsontable 的第一行第一列单元格？

Question

我需要将焦点放在 RShiny 应用程序中 rhandsontable 的第一行第一列单元格上。寻找与本论坛中讨论的解决方案类似的解决方案：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)

Answer 1

他的呢：

library(htmlwidgets)

server <- function(input, output) {
  output$scanBarcode <- renderRHandsontable(
    rhandsontable(DF) %>% 
    onRender("function(el, x) { 
                 let hot = this.hot;
                 hot.selectCell(0, 0); 
                 hot.getActiveEditor().beginEditing();
             }")  
  )
}

您使用 handsontable API 选择单元格 (注意索引在 JS 中为零），然后调用单元格编辑器。

您将此 JS 代码放在 onRender 函数中，您可以在其中引用正在创建的 handsontable 对象。