Используйте eventClick в FullCalendar (в Shiny)

Question

У меня есть полный календарь с блестящей графикой, в который я хотел бы включить "eventClicks". В идеале я хотел бы, чтобы при нажатии на одно из событий в календаре дополнительная информация отображалась во всплывающем окне с наведением курсора.

# CALENDAR
 LOL1 <- reactive({
 data1 <- calendar_subset()
 data1$CAL_DATE2 <- format(as.Date(data1$CAL_DATE2, format = "%m/%d/%Y"))
 hope0 <- c(as.character(data1$Account_Num))
 hope1 <- c(as.character(data1$Billing_Num))
 hope2 <- c(data1$CAL_DATE2)
 hope3 <- c(as.character(data1$color))
 hope4 <- c(data1$Transaction_Amt2)
 fullcalendar(events = data.frame(
  title = c(hope0),
  start = c(hope2), 
  color = c(hope3),
  description = c(hope4)), 
options = list(header = list(left = "",center = "",right = "prev,next")),
callbacks = list(dayClick = DT::JS("function(event, jsEvent, view) {alert('Clicked on: ' + date.format());}")))
}) 

output$test <- renderFullcalendar({LOL1()})

В конечном итоге я хотел бы заменить «dayClick» в приведенном выше коде на «eventClick» или «eventrender».

Есть идеи?

Ошибка консоли браузера:

(index):1 Uncaught SyntaxError: missing ) after argument list
at Object.window.HTMLWidgets.evaluateStringMember (htmlwidgets.js:735)
at exports.OutputBinding.shinyBinding.renderValue (htmlwidgets.js:496)
at exports.OutputBinding.onValueChange (output_binding.js:16)
at exports.OutputBinding.delegator.<computed> [as onValueChange] (htmlwidgets.js:112)
at OutputBindingAdapter.onValueChange (output_binding_adapter.js:21)
at ShinyApp.receiveOutput (shinyapp.js:332)
at ShinyApp.<anonymous> (shinyapp.js:544)
at ShinyApp._sendMessagesToHandlers (shinyapp.js:529)
at ShinyApp.dispatchMessage (shinyapp.js:515)
at WebSocket.c.onmessage (shinyapp.js:112)

из следующего кода:

callbacks = list(eventClick = DT::JS("function(event, element, view) 
{alert('Billing Number: ' + event.billnum + '\\n'' + 'Amount: ' + 
event.amount);}")))