Использование plot_click во flexdashboard

Question

Есть ли способ получить графики взаимодействия мыши с помощью flexdashboard?

В сиянии это не сложно. Я хочу сохранить щелчки мыши, и в блестящем интерфейсе я бы использовал:

mainPanel(plotOutput("scatterplot", click = "plot_click"))

А на сервере у вас будет:

df <- reactiveValues(Clicksdf = data.frame(clickx = numeric(), clicky = numeric()))

Могу ли я сделать это в flexdashboard?

Answer 1

Запишите блок кода, как если бы это был и Shiny UI, и сервер:

---
title: "Untitled"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
plotOutput("plot1", click = "wt")
output$plot1 <- renderPlot({
  plot(mtcars$mpg ~ mtcars$wt)
  })
```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart B

```{r}
renderText({
  unlist(input$wt$x)
})
```