Отобразите таблицу DT ниже, когда пользователь наведет курсор на любую точку данных на графике

#r #shiny

Вопрос:

Можем ли мы отобразить таблицу DT под графиком, когда мышь наводится на любую точку данных. В основном таблица DT должна отображать только точку, в которой происходит наведение

 library(shiny)
library(plotly)

ui <- fluidPage(
  plotlyOutput("lchart")
)

server <- function(input, output, session) {
  output$lchart <- renderPlotly({
    
    plot_ly(iris) %>% 
      layout(yaxis = list(title = "Total")) %>%
      add_trace(x = ~Sepal.Width, y = ~Petal.Width, type='scatter', yaxis = "y1", color = I("#3090C7"),name = 'Plot') 
})
}

shinyApp(ui, server)