How can I get the row, column clicked in shiny flextable?

Question

How can I get the row, column clicked in shiny flextable? Like in dataTable?

library(shiny)
library(flextable)

ui <- fluidPage(
    uiOutput("flexReport")
)

server <- function(input, output, server) {
    output$flexReport <- renderUI({
        ft <- flextable(mtcars)
        ft <- htmltools_value(ft, ft.align = "left")
        ft
    })
    observe({
        ###  print(input$flexReport_cells_selected)
    })
}

shinyApp(ui = ui, server = server)