获取shiny中光标下元素的ID

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  actionButton("btn", "Click me"),
  tags$div(id = "myDiv", "Hello Shiny!")
)

server <- function(input, output) {
  observeEvent(input$btn, {
    shinyjs::runjs("
      var element = document.elementFromPoint(event.clientX, event.clientY);
      var elementID = $(element).attr('id');
      Shiny.setInputValue('selectedElementID', elementID);
    ")
  })
  
  observeEvent(input$selectedElementID, {
    # 处理获取到的元素ID
    # ...
  })
}

shinyApp(ui, server)

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  actionButton("btn", "Click me"),
  tags$div(id = "myDiv", "Hello Shiny!")
)

server <- function(input, output) {
  onclick("myDiv", {
    elementID <- input$shinyjs_clicked_id
    # 处理获取到的元素ID
    # ...
  })
}

shinyApp(ui, server)