Estoy tratando de usar eventos de clic de trazado en el contexto de una aplicación brillante. Siguiendola demo oficial Estoy usando este bit de código para actualizar un selector de fecha y saltar a otra pestaña en mi aplicación al hacer clic:

observe({
  d <- event_data("plotly_click", source = 'plot')
  if(!is.null(d) & (input$navPanel == 'overview')) {

    d %>% filter(curveNumber == 0) %>% select(x) -> selected_date

    updateDateInput(session, "date", value = lubridate::ymd(selected_date$x))
    updateTabsetPanel(session, "navPanel", selected = "details")
  }

Sin embargo, cuando trato de cambiar dedetails aloverview pestaña, me devuelven inmediatamente a ladetails lengüeta. Supongo que esto sucede porque el evento nunca se borra, es decir.d no esnull cuando la pestaña cambia y la condición en elif-cláusula evalúa aTRUE.

Entonces, ¿cómo borro el evento click programáticamente? Agregandod <- NULL hasta el final del condicional no parece hacerlo.