Borrar evento de clic de trazado
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.