r - 反応可能なセルでレンダリングされたボタンからobserveEventでmodalBoxをトリガーする方法は?

Question

この投稿に続いて、セルのレンダリングボタンをクリックしてもshowModal()内部がobserveEvent()トリガーされないのはなぜですか? がリッスンする固定 ID の「文字」をボタンに指定しobserveEvent()てから、モーダル ボックスを開きます。しかし、そうではありません。

入力 ID に反応するShinyApp UI にボタンを配置したobserveEvent()場合、または反応可能に配置した場合の違いはどこにありますか?

library(shiny)
library(reactable)
library(tidyverse)

data = dplyr::starwars %>%
  select(name, height, mass, sex, species, homeworld)

ui = fluidPage(
  
  column(width = 6, style = "margin-top: 50px;",
  reactableOutput("table"))
  
)

server = function(input, output, session){

  
  output$table = renderReactable({
    reactable(data = data,
              height = 600,
              defaultPageSize = 20,
              columns = list(
                name = colDef(
                  cell = function(value){
                    div(htmltools::tags$button(value, class = "action-button", id = "character"))
                  })))})
  
  observeEvent(input$character, {
  showModal(modalDialog(title = "Test"))
  })
}

shinyApp(ui, server)