在使用rhandsontable时，要保持选中指示器即使没有焦点，可以使用以下代码示例：

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  rHandsontableOutput("table")
)

server <- function(input, output) {
  output$table <- renderRHandsontable({
    hot <- rhandsontable(matrix(1:9, nrow = 3))
    
    # 添加JavaScript代码以保持选中指示器
    hot$dependencies <- c(hot$dependencies, htmlwidgets::onStaticRenderComplete(
      "setTimeout(function() {
        var hot = $('.rhandsontable').handsontable('getInstance');
        hot.selectCell(0, 0, 0, 0, false);
      }, 100);"
    ))
    
    hot
  })
}

shinyApp(ui, server)

在上述代码中，我们使用了shiny和rhandsontable库创建一个简单的Shiny应用程序。我们为rhandsontable创建了一个输出项，并在服务器端使用renderRHandsontable函数来渲染rhandsontable。

在渲染rhandsontable之前，我们添加了一段JavaScript代码来保持选中指示器。这段代码使用setTimeout函数来延迟执行选中单元格的代码。在这个例子中，我们选择了第一个单元格（0行0列），你可以根据自己的需求修改这个代码。

通过将这段JavaScript代码添加到rhandsontable的依赖项(dependencies)中，它将在渲染rhandsontable时被执行。这样，即使rhandsontable失去焦点，选中指示器也会保持。

请注意，这段JavaScript代码使用了jQuery选择器来选择rhandsontable实例，并使用handsontable的selectCell方法来选中单元格。确保在添加这段代码之前，你已经加载了jQuery和handsontable库。