Estou tentando usar eventos de clique plotados no contexto de um aplicativo brilhante. Seguea demonstração oficial Estou usando esse bit de código para atualizar um seletor de datas e pular para outra guia do meu aplicativo no clique em:

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")
  }

No entanto, quando tento voltar dodetails aooverview guia, sou imediatamente jogado de volta para odetails aba. Suponho que isso acontece porque o evento nunca é limpo, ou seja,d não énull quando a guia é alterada e, portanto, a condição noif-cláusula avalia comoTRUE.

Então, como limpo o evento click programaticamente? Adicionandod <- NULL até o final do condicional não parece fazê-lo.