R Shinydashboard：在仪表板主体上捕获单击事件

Question

如何捕获闪亮仪表板主体上的点击事件？

尝试如下。它会加载仪表板并发出警报，而无需单击主体。然后，单击身体无济于事。预期的行为是，每次我单击身体时，它都会发出警报。

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)

一个想法是给主体一个ID，并与Shinyjs :: onclick一起使用，但是我不确定如何给主体一个ID。

Answer 1

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

}

这样，每次单击都会调用该函数。