R：我们可以在R Shiny中使用jquery调用观察者事件函数吗

Question

我正在为我的Web应用程序使用Shiny，并且我想使用JQuery调用observeEvent。

 server = function(input,output,session){
  db =dbGetQuery(connection,"select * from employee")

   shinyInput <- function(FUN, len, id, ...) {
                    inputs <- character(len)
                    for (i in seq_len(len)) {
                           inputs[i] <- as.character(FUN(paste0(id, i), ...))
                     }
                     inputs
                  }

 db$ACTION=shinyInput(
    actionButton,
    nrow(db),
    'button_',
    label = "Cancel",
    class="cancel-enabled cancel-btn"
    onclick = 'Shiny.onInputChange(\"select_cancel_button\",this.id)'
    )

 df$table = db[c("EMPLID","EMPLOYEE","STATUS","ACTION")]

 df$DT = datatable(
  df$table,     
  selection = 'none')

 observeEvent(input$select_cancel_button,{
      //Doe SOmething 
 }
}

jQuery脚本：

 $(document).ready(function(){
  $(document).on('click','.cancel-btn',function(){
    // calling 'input$select_cancel_button' observer event here
});

});

我们如何在JQuery中触发watchEvent？