Shiny 带晶格的闪亮交互式绘图协调问题（额外）

我尝试使用交互式绘图，尤其是

单击

功能来识别绘图中的点。虽然它可以在基本

绘图

中正常工作，但它不能正确识别

晶格：：xyplot

中的坐标，因此无法从

数据.frame

返回相应的行

一个简单的例子：

library(shiny)
library(latticeExtra)
ui=shinyUI(fluidPage(
  plotOutput("plot",click="plot_click"),
  fluidRow(
    column(4,verbatimTextOutput("click_info")),
    column(4,verbatimTextOutput("click_pt"))
  )
)
)
server=shinyServer(function(input,output){
  output$plot=renderPlot(xyplot(NOx~C,data=ethanol))  # this fail
  # output$plot=renderPlot(plot(NOx~C,data=ethanol))   # this works
  output$click_info=renderPrint(input$plot_click)
  output$click_pt=renderPrint(nearPoints(ethanol,input$plot_click,"C","NOx"))
})
shinyApp(ui=ui,server=server)

一个可能与远程相关的帖子是。 有什么帮助吗