Javascript R shinydashboard:捕获仪表板主体上的单击事件

如何在shinydashboard主体上捕获点击事件

尝试如下。它加载仪表板并发出警报，而无需单击车身。然后点击身体什么也不做。预期的行为是，每次我点击身体时，它都会发出警报

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(useShinyjs())
)

server <- function(input, output) { 

  shinyjs::runjs("document.body.addEventListener('click', alert('hello'));")  

  }

shinyApp(ui, server)

库（闪亮）
图书馆（shinydashboard）
图书馆（shinyjs）
ui事件侦听器应该是函数，而不是表达式。比如说


  shinyjs::runjs("document.body.addEventListener('click', function() {alert('hello')});")  

}

这样，每次单击时，该函数都将被调用