Как настроить трекер событий Google Analytics для определенного веб-элемента в R Shiny?

Question

Я бы хотел назначить трекер событий Google для определенных веб-элементов в приложении R Shiny. Давайте возьмем самый простой проект R Shiny с уникальным идентификатором "si_bins" для элемента "sliderInput".

Вот скрипт Google Analytics

<!-- Global site tag (gtag.js) - Google Analytics -->
<script async src="https://www.googletagmanager.com/gtag/js?id=XXXX"></script>
  <script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'XXXX');

  $(document).on('change', 'si_bins', function(e) {
    ga('send', 'event', 'sliderInput', 'select number of bins', 
    $(e.currentTarget).val());
  });

</script>

Вот приложение R Shiny

library(shiny)

server <- function(input, output) {
  output$uo_bins <- renderUI({
    sliderInput("si_bins", "Number of bins:", min = 1, max = 50,value = 30)
  })
  output$distPlot <- renderPlot({
    x    <- faithful[, 2] 
    bins <- seq(min(x), max(x), length.out = input$si_bins + 1)
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
}

ui <- fluidPage(
   titlePanel("Old Faithful Geyser Data"),
   sidebarLayout(
      sidebarPanel(uiOutput("uo_bins")),
      mainPanel(plotOutput("distPlot"))
   ))

shinyApp(ui = ui, server = server)

Как правильно настроить эту строку кода?

$(document).on('change', 'si_bins', function(e) {
      ga('send', 'event', 'sliderInput', 'select number of bins', 
          (e.currentTarget).val());
    });