通过单击 RStudio 查看器窗格中的 dygraph 获取点坐标

Question

这是一个简单的dygraph：

library(dygraphs)  
dg <- dygraph(ldeaths)  
dg

当您的鼠标在系列上移动时，会显示各个值。 我想单击一个点并将 x 坐标（即日期）显示在控制台上或保存到一个变量中。 我怎样才能做到这一点？ 看起来答案与 dyCallbacks() 有关，但我真的想不通。 例如，

> d <- dg %>% dyCallbacks(pointClickCallback = 'function(e, p) {return
> p.x;}')   d$x$attrs$pointClickCallback   [1] "function(e, p) {return
> p.x;}"   attr(,"class")   [1] "JS_EVAL"

提前致谢，
法比奥

Answer 1

我对 Javascript 了解不多，但是如果您对闪亮的态度持开放态度，那么您可以获得想要的东西。 使用来自Shiny的点击输入绑定，您可以打印 x 变量，并且使用 Shiny 您还可以根据需要轻松保存它。 以下是您可以执行的操作的最低示例：

ui = fluidPage(
  mainPanel(
    dygraphOutput("dygraph"),
    br(),
    textOutput("clicked", inline = TRUE)
  )
)


server = function(input, output) {


  output$dygraph <- renderDygraph({
    dygraph(ldeaths) 
  })

  output$clicked <- renderText({
    strftime(req(input$dygraph_click$x), "%d %b %Y")
  })

  clickedPr <- reactive({
    print(strftime(req(input$dygraph_click$x), "%d %b %Y"))
  })

  observeEvent(input$dygraph_click$x,{

      write.csv(clickedPr(), "test.csv") 
    })


}

shinyApp(ui = ui, server = server)