Shiny:将焦点设置到modalDialog中的输入

library(shiny)

ui <- fluidPage(
  actionButton("showModal", "Show Modal Dialog"),
  modalDialog(
    textInput("inputField", "Enter something:"),
    footer = tagList(
      actionButton("closeModal", "Close")
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$showModal, {
    showModal(modalDialog(
      textInput("inputField", "Enter something:"),
      footer = tagList(
        actionButton("closeModal", "Close")
      )
    ))
    # 使用JavaScript设置焦点
    session$sendCustomMessage(type = 'setFocus', message = 'inputField')
  })
  
  observeEvent(input$closeModal, {
    removeModal()
  })
}

# 注册JavaScript函数
jsCode <- "
  Shiny.addCustomMessageHandler('setFocus', function(id) {
    var element = document.getElementById(id);
    if (element) {
      element.focus();
    }
  });
"

runApp(list(ui = ui, server = server), launch.browser = TRUE)