单击plotOutput中的其他信息，即可单击闪亮

Question

我尝试展示并从变差函数中获取一些信息。当我使用R时，我使用功能标识。

v <- variogram(frm,vect,cloud=TRUE)
plot(v$dist,v$gamma)
p <- identify(v$dist,v$gamma)
print(v[p,])

感谢您收到以下信息：  dist gamma dir.hor dir.ver id left right

当我使用发亮的时候，就像点击一样使用plotOutput

UI：

plotOutput("plot", click = "plot_click"),
verbatimTextOutput("info"),

服务器

output$plot <- renderPlot({
df <- dataaa()
v <- variogram((df$daneWejsciowe)~1,df, cloud=TRUE)
plot(v$dist,v$gamma)})


output$info <- renderText({
df <- dataaa()
paste0("x=", input$plot_click$x, "\ny=", input$plot_click$y ) })

这样，我只能得到x和y。但是，我需要左右最大的价值。您知道吗，也许可以通过某种方式获得期望值？