distinguish links and nodes in sankeyPlot using event_data

I am building a sankey plot using plotly package with R within a Shiny application.
At some point, I use event_data function which returns an index pointNumber which is an integer ranging from 0 to the number of pairwise nodes relationships.
When performing sankeyPlot in plotly you have to specify the node and link arguments. The problem is that pointNumber provides an index which I cannot distinguish between the node or the link.
I would like the app could identify if the user clicks on a node or on a link.

Here is a toy example. Note that when clicking on node "A", pointNumber returns 0, and the same when clicking on link connecting node "A" and node "B".

library(plotly); library(shiny)
ui <- fluidPage(
  plotlyOutput("plot"),
  verbatimTextOutput("index")
)
server <- function(input, output){
  output$index <- renderPrint({
    event_data("plotly_click", source="sankeyPlot")
  })
  output$plot <- renderPlotly({
    plot_ly(
      source = "sankeyPlot",
      type = "sankey",
      arrangement = "fixed",
      node = list(label = c("A","B","C","D"), hoverinfo="none"),
      link = list(source=c(0,0,1,2), target=c(1,2,3,3), value=c(2,5,2,1), hoverinfo="none")
    )
  })
}
shinyApp(ui, server)

Bắt đầu với ví dụ Shiny đơn giản sử dụng event_data("plotly_click") trên biểu đồ sankey và kiểm tra pointNumber được trả về đối với các lần nhấp vào node và link. Theo dõi cách các sự kiện sankeyPlot được biểu diễn và xác định cách dữ liệu được trả về có thể phân biệt phần tử được nhấp. Hoàn thành khi ứng dụng có thể xác định một cách đáng tin cậy liệu lần nhấp có nhắm đến node hay link.