Ich versuche, geplottete Klickereignisse im Kontext einer glänzenden App zu verwenden. Folge ichdie offizielle Demo Ich verwende diesen Code, um eine Datumsauswahl zu aktualisieren und mit einem Klick zu einem anderen Tab in meiner App zu springen:

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

Jedoch, wenn ich dann versuche vom @ zurückzuschaltdetails zumoverview tab, ich werde sofort zurück zum @ geworfdetails tab. Ich gehe davon aus, dass dies passiert, weil das Ereignis nie gelöscht wird, d. H.d ist nichtnull wenn die Registerkarte geändert wird und so die Bedingung in derif -Klausel ergibtTRUE.

Also, wie lösche ich das Klickereignis programmgesteuert? @ Hinzufügd <- NULL bis zum Ende der Bedingung scheint es nicht zu tun.