R: Можем ли мы вызвать функцию события наблюдателя, используя jquery в R Shiny

Question

Я использую Shiny для своего веб-приложения и хочу вызвать observeEvent с помощью JQuery.

 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?