Я пытаюсь использовать сюжетные клики в контексте блестящего приложения. Следующийофициальная демонстрация Я использую этот фрагмент кода для обновления выбора даты и перехода на другую вкладку в моем приложении при нажатии:

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

Тем не менее, когда я тогда пытаюсь переключиться назад сdetails кoverview вкладку, я сразу же возвращаюсь кdetails Вкладка. Я предполагаю, что это происходит потому, что событие никогда не очищается, т.е.d не являетсяnull когда вкладка меняется, и поэтому состояние вif-класс оценивает вTRUE.

Итак, как мне очистить событие click программно? Добавлениеd <- NULL до конца условно не похоже это делать.